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FOREWORD 


The  research  was  performed  under  Program  Element  62601 F,  Project  8809, 

Task  09. 

Inclusive  dates  of  research  were  1  September  1971  through  1  October  1973. 
The  report  was  submitted  18  January  1974  by  the  Air  Force  Weapons  Laboratory 
Project  Officer,  Major  Arthur  R.  Geldbach  (SAB). 

In  the  development  of  the  user's  manual  for  the  QUANTO  code,  the  experience 
and  advice  of  Mr.  William  Peay  and  Mr.  Eugene  Omoda  have  been  invaluable  in 
deciding  what  information  to  include,  in  clarifying  the  user  instructions,  and 
in  making  the  code  easy  to  use  efficiently. 

This  technical  report  has  been  reviewed  and  is  approved. 
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SECTION  I 
INTRODUCTION 

The  QUANTO  computer  code  and  its  mathematical  model  were  developed  within 
the  Analysis  Division  of  the  Air  Force  Weapons  Laboratory  (AFWL)  to  study  the 
effects  of  a  sea-launched  ballistic  missile  (SLBM)  nuclear  attack  on  targets 
consisting  of  a  flushing  aircraft  force.  Using  the  technique  of  Lagrangian 
multiplier  optimization,  a  near-optimal  allocation  of  SLBMs  to  targets  is 
produced.  In  addition,  the  submarine  positions  or  the  aircraft  beddown  are 
optimized  if  requested.  The  code  has  considerable  flexibility  in  the  type  of 
input  data  it  will  permit  through  (1)  its  automatic  consideration  of  specific 
values  of  aircraft  hardnesses,  flyout  profiles,  level-off  altitudes,  and  kill 
values  and  (2)  its  treatment  of  an  attack  by  multiple  types  of  SLBMs,  which 
are  described  by  differing  missile  trajectories,  yields,  launch  intervals, 
reliabilities,  -nd  numbers  of  missiles  per  submarine. 

The  report  contains  information  which  enables  the  user  of  QUANTO  to  con¬ 
struct  a  data  deck  and  make  a  successful  run.  In  addition,  the  limits  on  the 
numbers  of  data  arr^y  elements  currently  permitted  in  a  OUANTO  run  are 
described.  However,  the  user  is  provided  instructions  for  redimensioning 
arrays  to  accommodate  larger  problems  or  to  reduce  core  requirements  for 
smaller  problems.  The  most  recent  version  of  the  program  is  listed  in 
appendix  I.  Sample  control  language  and  comments  concerning  several  of  the 
input  parameters  are  also  included. 

This  document  is  intended  a  supplement  to  the  AFWL  Technical  Report 
AFWL-TR-73-242,  "QUANTO— A  Code  to  Optimize  Weapon  Allocations,"  which 
describes  the  mathematical  model  and  methods  of  optimization  used  by  QUANTO. 
An  example  of  an  input  deck,  its  output,  and  brief  descriptions  of  the  major 
subroutines  appear  in  the  referenced  report. 
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SECTION  II 


USING  THE  PROGRAM 

The  user  of  QUANTO  must  construct  a  data  deck  and  verify  that  the  dimensions 
of  arrays  in  DIMENSION  and  COMMON  statements  are  sufficient  for  the  problems 
described.  The  format  of  the  input  data  will  first  be  described.  Then  a  discus¬ 
sion  will  be  given  of  the  DIMENSION  and  COMMON  statements  of  concern  when  problem 
sue  forces  enlargement  or  adjustment  of  array  sizes. 

1.  STRUCTURE  OF  INPUT  DECK 

The  input  deck  for  a  single  problem  is  arranged  in  sections  in  the  following 
order: 

a.  Initial  data  card 

b.  Beddown  data 

c.  Aircraft  parameters 

d.  Submarine  positions 

e.  Missile  data 

f.  Aircraft  profile  and  nuclear  effects  parameters 

g.  Convergence  parameters 

h.  Initial  allocation 

When  multiple  problems  are  to  be  run  in  a  single  job  submission,  the  data  decks 
for  all  problems  may  be  stacked  and  input  in  a  single  stream. 

a.  Initial  Data  Card 

The  first  card  of  any  input  problem  contains  basic  data  necessary  to 
describe  the  problem.  This  curd  is  described  in  table  1.  Table  2  shows  options. 

b.  Beddown  Data 

The  aircraft  beddown  data  is  input  as  a  set  of  cards  for  each  base 
capable  of  having  alert  aircraft  of  any  kind.  The  first  card(s)  of  the  set 
identifies  the  base.  Each  target  (base)  identification  is  followed  by  a  take¬ 
off  sequence  list  for  alert  aircraft  on  that  base.  The  formats  of  these  cards 
are  described  in  tables  3  and  4. 
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Table  1 

INITIAL  TATA  CARD  FORMAT 
(FORMAT  (1415)) 

Program 

variable 

Columns  name  Description 

1-5  NTGTS  Number  of  bases  in  the  list  of  aircraft  beddown. 

6-10  NSUBS  Number  of  candidate  positions  for  submarines  in  the 

list  of  submarine  positions. 

11-15  NTYPES  Number  of  types  of  aircraft. 

16-20  MXRWAY  Maximum  number  of  runways  on  any  one  base. 

21-25  MTYPES  Number  of  types  of  missiles. 

26-30  IOUT  A  control  variable  to  limit  output. 

If  I0UT=2,  intermediate  multiplier  and  allocation  out¬ 
put,  useful  for  debugging,  will  be  output  during  the 
convergence  to  the  optimal  laydowns. 

If  I0UT=1,  the  intermediate  output  mentioned  above 
will  be  suppressed. 

31-35  ISOPT  A  control  variable  to  control  whether  or  not  optimiza¬ 

tion  of  submarine  positioning  among  the  candidate 
positions  is  performed. 

If  IS0PT=1,  submarine  positioning  will  NOT  be  optimized 
among  the  input  submarine  locations. 

If  IS0PT=2,  submarine  positioning  will  be  optimized. 

36-40  IVOPT  A  control  variable  to  control  whether  or  not  the  bed- 

down  of  aircraft  will  be  optimized  among  the  given 
bases. 


41-45 

46-50 


NCASE 

MODE 


If  IV0PT=1 ,  the  beddown  will  NOT  be  optimized. 

If  IV0PT=2,  the  beddown  will  be  optimized. 

NOTE:  If  both  ISOPT  and  IVOPT  are  set  equal  to  2,  the 
submarine  positioning  is  optimized  first,  then 
fixed  in  these  locations  for  the  beddown  opti¬ 
mization. 

An  arbitrary  "case  number"  which  the  user  may  use  to 
identify  his  problem. 

A  multipurpose  control  variable  which  is  used  to 
specify  one  of  several  operational  modes.  Table  2 
describes  the  mode  options. 
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Table  3* 

TARGET  IDENTIFICATION  CARD(S)  FORMAT 
(FORMAT  (3F10.4 ,  15,  5X,  3F1 0 . 4/ ( 7FI 0 . 4 ) ) ) 


Col  unms 

Program 

array 

name 

Description 

1-10 

TGTLAT 

Latitude  coordinates  of  the  base's  brake  release  point 
(start  of  take-off  roll),  in  degrees  (northern  hemis¬ 
phere  is  assumed). 

11-20 

TGTLNG 

Longitude  coordinates  of  the  base's  brake  release  point 
(start  of  take-off  roll),  in  degrees  (west  of  Greenwich 
mean  line  is  assumed). 

21-30 

DTCENT 

Distance  from  brake  release  point  to  the  centroid  of 
the  dispersing  aircraft,  in  nautical  miles  (NM). 

31-35 

NRWAYS 

Number  of  runways,  used  to  determine -take-off  '.nt;  rvals 
between  aircraft  on  this  base. 

41-50 

51-60 

61-70 

VAL 

Number  of  aircraft  of  Type  1,  then  Types  2,  3,  ...  , 
until  the  numbers  of  all  typ^s  of  aircraft  on  this 
base  have  been  listed. 

Following  card(s)  if 
necessary  in  7F10.4 
format. 


*Note  that  if  only  three  or  fewer  types  of  aircraft  are  included  in  the  problem 
and  no  base  has  more  than  VO  alert  aircraft,  then  only  two  cards  will  be 
necessary  for  each  base,  so  the  beddown  data  will  consist  of  consecutive  pairs 
of  cards,  one  pair  per  target. 


Table  4* 

TAKE-OFF  SEQUENCE  CARD(S)  FORMAT 
(FORMAT  (7011)) 

Program 

array 

name  Description 


ISEQ  The  type  numbers  of  the  alert  aircraft  on  the  base,  in 

the  order  of  take-off,  for  as  many  C3rds  as  needed. 


r _ 

*Note  that  if  only  three  or  fewer  types  of  aircraft  are  included  in  the  problem 
and  no  base  has  more  than  70  alert  aircraft,  then  only  two  cards  will  be 
necessary  for  each  base,  so  the  beddown  data  will  consist  of  consecutive  pairs 
of  cards,  one  pair  per  target. 


*  / 


Columns 


1,2,3,. 

70 

I . • • 
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c.  Aircraft  Parameters 

The  point  values  assigned  to  ed.ch  aircraft,  brake  release  times  (for 
.  each  type  of  aircraft  if  first  to  take  off),  aircraft  hardnesses,  and  take-off 

intervals  follow  the  beddown  data  in  the  inpnt  deck.  First,  one  card  per  air- 
*  craft  is  input,  in  order  by  aircraft  type  number,  giving  the  first  three  of 

these  items;  this  card  will  be  called  the  "aircraft  card."  Then  the  take-off 
intervals  are  listed  in  a  specific  order  on  the  subsequent  card(s).  The  formats 
of  these  cards  are  described  in  tables  5  and  6. 


I 


C 
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Table  5 


AIRCRAFT  CARD  FORMAT 
(FORMAT  (3F10.4,  15)) 

Program 

array 

Columns  name  Description 


1-10  RELVAL 

11-20  BRTIME 

21-30  PSI 

31-35  I CAL 


The  number  of  value  points  each  aircraft  of  the  given 
type  is  worth  to  the  enemy  when  killed. 

The  time  between  launch  of  the  first  SLBMs  and  the 
brake  release  time  (start  of  take-off  roll)  of  the 
given  type  aircraft,  if  that  type  aircraft  is  the  first 
to  take  off  at  any  base,  in  minutes. 

The  number  of  psi  (pounds  per  square  inch)  of  over¬ 
pressure  which  kills  the  aircraft. 

The  number  of  cal/cm2  of  incident  free-field  thermal 
energy  which  kills  the  aircraft. 


Table  6 

TAKE-OFF  INTERVALS  CARD  FORMAT 
(FORMAT  (7F10.4J) 


Program 

array 

Columns  name  Description 


1-10  DELTAC 

11-20 
21-30 

etc.,  through 
70;  then  repeat 
on  subsequent 
cards. 


The  take-off  intervals  between  each  ordered  pair  of 
types  of  aircraft,  for  bases  with  each  possible  number 
of  runways,  are  listed  in  specific  order.  First,  for 
single  runways,  the  intervals  between  the  aircraft-type 

pairs  (1,1), (1,2), (1,3) . (1 .NTYPES) , (2,1 ) , (2,2) . 

(2.NTYPES) ,(3,1 ) . (NTYPES, NTYPES),  are  input  in  that 

order.  A  set  of  intervals  in  this  order  is  then  input 
for  dual  runways,  then  triple,  etc.,  until  all  numbers 
of  runways  which  occur  on  input  bases  have  been  covered. 
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d.  Submarine  Positions 

One  data  card  is  input  per  candidate  submarine  location.  A  submarine 
location  is  characterized  not  only  by  the  type  of  missile  (or  submarine)  which 
may  be  located  there,  but  by  the  number  of  missiles  on  that  type  jf  submarine. 
Type  numbers  are  applied  to  submarine  locations  to  indicate  the  type  of  sub¬ 
marine  which  may  be  located  there.  In  the  automated  relocation  of  submarines, 
shifts  of  submarines  may  occur  only  between  locations  which  may  have  like  *ypes 
of  submarines.  So  the  numbering  of  submarine  types  may  be  constructed  so  as  to 
prevent  submarines  from  moving  to  certain  points  or  jumping  from  one  ocean  to 
another.  If  more  than  one  type  of  submarine  can  be  at  the  same  location,  that 
point  must  be  input  once  for  each  candidate  type  of  submarine.  T,He  format  of 
the  submarine  location  card  is  described  in  table  7. 

Table  7 

SUBMARINE  LOCATION  CARD  FORMAT 
(FORMAT  (2F10.4,  315)) 


Columns 


Program 

array 

name 


► 

1-10 

SUBLAT 

Latitude  coordinates  of  the  candidate  submarine  loca¬ 
tion  in  degrees  (north  hemisphere  is  assumed). 

11-20 

SUBLNG 

Longitude  coordinates  of  the  candidate  submarine  loca¬ 
tion  in  degrees  (west  of  Greenwich  mean  line  is 
assumed). 

*  / 

*■*■«**» 

21-25 

ISUBS 

Number  of  submarines  stationed  at  the  submarine  loca¬ 
tion,  prior  to  submarine  relocation  (if  requested). 
This  may  be  zero. 

• 

26-30 

NMPS 

Number  of  missiles  on  all  submarines  at  the  1  oca  tier, 
which  will  be  dedicated  to  aircraft  kills. 

31-35 

MTYPE 

Type-number  of  the  submarines  (or  SLBMs)  which  may  be 
located  at  the  point. 

e.  Missile  Data 

The  type  numbers  appearing  in  the  submarine  location  input  refer  to  the 
type  of  submarine.  Since  each  submarine  can  carry,  at  most,  one  type  of  missile, 
the  submarine  type  is  equivalent  to  the  missile  type.  For  each  type  submarine, 
parameters  describing  the  SLBM  must  be  input.  Sets  of  cards  describing  each 
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SLBM  are  input  sequentially  by  submarine  type  ,,  umber.  Each  set  of  cards  for  a 
single  SLBM  contains 

(1)  The  SLBM  parameters  card 

(2)  The  missile  trajectory  card(s) 

If  two  different  submarine  type  numbers  are  used  for  the  same  type  SLBM  merely 
to  prevent  submarines  from  shifting  to  certain  points,  the  set  of  cards 
describing  that  SLBM  must  be  input  twice.  The  formats  of  these  cards  are 
described  in  tables  8  and  9. 


Table  8 

SLBM  PARAMETERS  CARD  FORMAT 
(FORMAT  (7F10.4)) 


Columns 

Program 

array 

name 

Description 

1-10 

DELTM 

The  time  interval  between  salvo  launches  for  successi  ,»e 
missiles  of  the  given  type,  in  minutes. 

11-20 

RELML 

The  launch  reliability  of  the  missile  (i.e.,  the 
percent  which  launch  successfully  on  the  average). 

21-30 

RELMF 

The  in-flight  rel i abi  1  i t>  of  >.he  missile  (i.e.,  the 
percent  which  successfully  reach  the  target  area  on 
the  average) . 

31-40 

RELMWH 

The  warhead  reliability  of  the  misstle  (i.e.,  the 
percent  which  successfully  detonate  upon  reaching 
the  target  on  the  average). 

41-50 

RNGMIN 

The  minimum  range  of  the  missile,  in  NM. 

51-60 

RNGMAX 

The  maximum  range  of  the  missile,  in  NM. 

61-70 

YIELD 

The  assumed  yield  of  the  missile  warhead,  in  KT. 

The  tabular  time/distance  pairs  of  table  9  are  used  to  compute  missile 
arrival  times  on  each  target,  with  four-poirt  Lagrangian  interpolation  supplying 
times  for  distances  not  appearing  in  the  table. 
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Col umns 


11-20 


21-30 


31-40 

41-50 

51-60 

61-70 


Program 
variable 
or  array 
name 


FMTIME 


FMRNG 


FMTIME 

FMRNG 

FMTIME 

FMRNG 


Table  9 

MISSILE  TRAJECTORY  CARD(S)  FORMAT 
(FORMAT  (15,  5X,  (6F10.4))) 


Description 

Number  of  time/distance  pairs  which  describe  the  times 
associated  with  the  missile  trajectories  to  various 
distances.  These  pairs  immediately  follow  MPR. 

The  flight  time,  in  minutes,  v.'hich  the  missile  requires 
to  reach  a  target  a  given  number  of  NM  from  the  launch 
point,  where  this  distance  is  given  immediately  follow¬ 
ing  this  time  on  the  input  card. 

The  distance,  in  NM,  corresponding  to  the  preceding 
missile  flight  time. 

Succeeding  time/distance  pairs,  in  ascending  order  by 
time,  which  describe  the  missile  flight  times. 


Succeeding  cards  in  (6F10.4)  format  until  all  MPR  pairs  have  been  input. 


f.  Aircraft  Profile  and  Nuclear  Effects  Parameters 

A  set  of  cards  is  input  for  each  aircraft  type,  with  the  sets  in  order 
by  aircraft- type  number.  Each  set  consists  of  the  following: 

!  (1)  Altitudes  card 

(2)  Count  card 

(3)  Aircraft  flight  profile  data  cards 

(4)  Control  variables  card 

(5)  Nuclear  effects  parameters  card 

(6)  Lethal  ra^i  cards 

The  formats  of  these  cards  are  described  in  the  following  tables. 

(1)  Altitudes  Card 

This  card  indicates  the  final  level -off  altitude  of  the  aircraft 
of  the  given  type  and  the  height  of  burst  (HOB)  of  the  SLBMs.  Both  of  these 
altitudes  are  relative  to  the  ground.  Thus,  if  each  base  has  only  one  type  of 
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aircraft  stationed  there,  different  HOBs  may  be  selected  for  each  type  aircraft. 
However,  this  will  cause  misleading  results  if  a  base  has  more  than  one  type  of 
aircraft,  since  the  lethal  area  computations  for  one  SLBM  against  two  different 
types  of  aircraft  will  be  based  on  two  different  HOBs  for  the  single  weapon. 

The  format  of  this  card  appears  in  table  10. 


Table  10 

ALTITUDES  CARD  FORMAT 
(FORMAT  (6F10.4) ) 


Columns 

Program 

variable 

name 

Description 

1-10 

AZ 

The  final  level-off  altitude  of  the  aircraft  in  its 
flyout  profile,  in  feet  above  the  ground. 

11-20 

HBL 

The  detonation  height  of  SLBMs  used  in  computing 
lethal  areas  for  the  aircraft,  in  feet  above  the 
ground. 

(2)  Cou.it  Card 

The  count  card  indicates  only  the  number  of  cards  following  it 
which  contain  the  aircraft  profile  information.  Columns  1  through  5  of  this 
card  should  contain  this  integral  number  of  cards,  and  the  remaining  colunns 
may  be  used  for  comments. 

(3)  Aircraft  Flight  Profile  Data 

The  aircraft  flight  profile  data  is  input  in  a  set  of  data  ca»ds 
which  describe  the  aircraft  movement  in  time  and  space.  The  flight  profile 
for  a  given  type  of  aircraft  consists  of  values  for  distance,  time,  altitude, 
and  the  horizontal  components  of  velocity  and  level -off  acceleration  (as  a 
function  of  altitude).  These  values  are  specified  for  a  nonturning  aircraft. 

Distance  and  time  values  are  measured  relative  to  brake  release, 
the  point  at  which  the  aircraft  begins  moving  on  the  runway  for  take-off.  The 
values  for  altitude  are  measured  relative  to  ground  level  and  must  be  non¬ 
decreasing.  The  level-off  altitude  may  be  specified  as  any  altitude  less  than 
or  equal  to  the  maximum  (i.e.,  las  )  altitude  value  of  the  aircraft  flight 
profile.  The  values  for  velocity,  distance,  time,  and  acceleration  of  the 
aircraft  when  it  levels  off  are  obtained  through  interpolation  among  the 
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altitude  values  of  the  profile  based  on  the  input  level-off  altitude.  The 
parameters  associated  with  level -off  are  used  in  the  standard  equations  of 
motion  to  ''operate  the  aircraft  to  its  final  escape  velocity.  The  final 
escape  1  ii;  is  assumed  to  be  the  maximum  velocity,  expressed  as  Mach  number, 
whi  y  >rs  in  tee  input  aircraft  flight  profile  data,  al  though  it  is  input 
separately  as  FMACH  in  the  control  variables  card  to  be  described  next.  An 
exception  to  this  rule  is  made  when  XATI=0.0  (in  the  control  variables  card- 
see  next  paragraph),  in  which  no  acceleration  takes  place  after  level-off. 

The  user  is  required  to  input  values  for  altitude  which  are  nondecreasing,  and 
these  values  are  automatically  adjusted,  if  necessary,  to  ensure  strict 
monotonicity  for  purposes  of  interpolation.  The  aircraft  flight  profile 
description  should  consist  of  approximately  the  maximum  of  50  cards  currently 
permitted  by  array  dimensions  in  QUANTO.  The  format  and  content  of  each  card 
are  described  in  table  11. 


Table  11 


AIRCRAFT  FLIGHT  PROFILE  DATA  CARD  FORMAT 
(FORMAT  (3F15.8,  2F10.6)) 


Columns 

Program 

array 

name 

Description 

1-15 

F 

The  ground  range  from  the  brake  release  point,  in  feet, 
indicating  the  distance  traveled  in  the  following  time. 

16-30 

G 

The  time  from  brake  release,  in  seconds,  at  which 
the  aircraft  reaches  the  preceding  distance. 

31-45 

A 

The  altitude  of  the  aircraft,  in  feet  above  ground 
elevation,  at  the  preceding  time. 

46-55 

VEL 

The  Mach  number  describing  the  aircraft's  ground 
speed  at  the  time  indicated  in  this  card. 

55-65 

ACCEL 

The  acceleration,  in  feet  per  second  per  second  at 

which  the  aircraft  would  accelerate  to  its  final 
escape  velocity  if  it  leveled  off  at  a  lesser 
velocity  at  the  altitude  on  this  card. 


(4)  Control  Variables  Card 

This  card  supplies  the  values  of  variables  which  control  the 
operation  of  generating  a  completed  aircraft  flight  profile  for  use  in  the 
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program.  The  format  of  this  card  is  described  in  table  12,  and  additional 
information  concerning  the  variables  is  in  the  following  narrative. 

The  variables,  FALTCM  and  FMACH,  are  determined  by  the  input  air¬ 
craft  flight  profile.  The  aircraft  is  assumed  to  follow  the  input  flight 
profile  until  the  level-off  altitude  is  reached.  If  XATI>0.0,  the  aircraft  is 
then  accelerated  to  its  final  escape  velocity  which  is  assumed  to  be  the 
maximum  Mach  number  which  occurs  in  the  input  profile  and  is  specified 
separately  as  FMACH.  The  lowest  altitude  in  the  input  profile  data  at  which 
the  aircraft  reaches  this  final  escape  velocity  is  specified  by  FALTCM.  If 
the  level-off  altitude  is  less  than  FALTCM,  then  the  velocity  upon  leveling 
off  is  less  than  FMACH.  The  standard  equations  of  motion  are  then  used  to 
accelerate  the  aircraft  to  its  final  escape  velocity,  if  the  variable  XATI  is 
greater  than  zero. 

The  variable  XATI  specifies  the  number  of  points  which  QUANTO 
generates  in  accelerating  the  aircraft  to  its  final  escape  velocity.  If  XATI 
is  equal  to  0.0,  then  the  velocity  upon  leveling  off  is  used  as  the  final 
escape  velocity,  and  no  acceleration  takes  place.  The  variable  XATI  should  be 
chosen  such  that  a  sufficient  number  of  points  of  distance  and  time  are 
generated  for  the  acceleration  phase  to  permit  reasonably  accurate  interpola¬ 
tion. 

The  distance  associated  with  the  point  that  the  aircraft  achieves 
its  final  escape  velocity  is  usually  not  great  enough  for  the  lethal  area 
determination  routines  to  use  in  computing  lethal  area  of  the  most  distant 
SLBM  weapon  detonations.  The  variable  TI(I)  is  used  to  extend  the  profile  to 
the  greatest  distance  needed.  This  is  the  greatest  distance  from  the  centroid 
that  is  necessary  to  compute  lethal  area  for  the  placement  of  the  last 
potential  weapon  arriving  on  that  target. 

The  choice  of  TI(I)  and  XATI  must  be  made  that  the  complete 
aircraft  profile  is  generated  with  sufficient  spacing  in  the  data  to  accommodate 
four-point  Lagrangian  (cubic)  interpolation.  An  upper  limit  of  99  tptal  data 
points  in  the  complete  aircraft  flight  profile  is  permitted  by  the  present 
array  dimensions  in  QUANTO.  Currently  used  values  for  TI(I)  and  XATI  are  60 
seconds  and  10  points,  respectively. 
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Table  12 

CONTROL  VARIABLES  CARD  FORMAT 
(FORMAT  (3F15.8,  2F10.6) ) 


Columns 

Program 

variable 

name 

Description 

1-15 

FALTCM 

The  altitude,  in  feet  above  ground  elevation,  from  the 
aircraft  flight  profile,  at  which  the  aircraft  first 
reaches  its  final  escape  velocity. 

16-30 

FMACH 

The  final  escape  velocity  of  the  aircraft,  expressed 
as  Mach  number,  from  the  aircraft  flight  profile. 

The  aircraft  will  not  exceed  this  velocity  during 
flush. 

31-45 

TI(  I) 

The  time  interval,  in  seconds,  at  which  data  points 
for  distance  will  be  generated  after  the  aircraft 
(of  type  I)  reaches  ’ts  final  escape  velocity. 

46-55 

XATI 

The  number  of  equally  spaced  points  in  time  for  which 
distances  will  be  generated  to  accelerate  the  aircraft 
from  its  velocity  it  its  level -off  altitude  to  its 
final  escape  velocity. 

(5)  Nuclr.cr  Effects  Parameters  Card 

This  card  contains  parameters  which  indicate  the  environment  in 
which  the  nuclear  detonations  take  place.  These  parameters  are  arguments 
required  for  the  nuclear  effects  subroutines  SABERCM  and  SNAPTCM.  Table  13 
describes  the  format  of  this  card. 

(6)  Lethal  Radii  Cards 

If  the  lethal  overpressure  radius  and  time  of  shock  arrival  and/or 
the  lethal  thermal  radius  are  already  known  for  the  hardnesses  of  some  or  all 
aircraft  types  against  some  or  all  missile  types  for  the  case  in  which  the 
aircraft  has  reached  its  terminal  altitude  by  the  time  it  encounters  the  lethal 
region,  some  of  the  computations  of  SABERCM  and  SNAPTCM  may  be  bypassed  by 
inputing  the  necessary  values  in  cards  following  the  nuclear  effects  parameters 
card.  A  pair  <f  cards,  the  "overpressure  card"  and  the  "thermal  card,"  must  be 
input  for  each  combination  of  aircraft  type  and  missile  type.  These  pairs  are 
input  in  ascending  order  by  aircraft  type  and  by  missile  type  within  aircraft 
type.  These  cards  must  be  input  even  if  the  values  are  not  known,  but  the 
cards  may  be  left  blank.  The  card  formats  are  in  tables  14  and  15. 
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Table  13 

NUCLEAR  EFFECTS  PARAMETERS  CARD  FORMAT 
(FORMAT  (6F10.8)) 


Columns 

Progi -m 
variable 
name 

Description 

1-10 

HTE 

The  assumed  ground  elevation,  in  feet  above  sea  level, 
of  the  target  air  bases  from  which  this  aircraft  flies. 
This  currently  must  be  zero  since  QUANTO's  computations 
of  lethal  areas  are  not  reaccomplished  for  each  base. 

11-20 

BETIND 

The  “oeta  ID,”  an  indicator  which  the  subroutine  SNAPTCM 
requires  to  compute  the  effect  of  thermal  energy  on  the 
aircraft  by  considering  the  aircraft  as  a  horizontal 
panel  (when  BETIND=0.0)  or  as  a  panel  oriented  for 
maximum  perpendicular  incident  thermal  energy  (when 
BETIND=1 .0).  QUANTO  uses  BETIND=1.0,  assuming  some 
panel  of  the  aircraft  is  in  the  worst  orientation. 

21-30 

RHO 

The  iucdo  factor,  which  is  the  fraction  of  incident 
the  lal  energy  which  reflects  off  the  ground.  For  a 

SAC  Normal  Day,  the  albedo  is  0.3.  A  worst  case 
abnormal  day  has  a  higher  albedo. 

31-40 

VIS 

The  visibility  in  milts;  10  for  a  SAC  Normal  Day. 

41-50 

PZ 

The  water  vapor  in  the  air,  in  millimeters-,  5  for  a 

SAC  Normal  Day. 

51-60 

HSL 

The  altitude  in  feet  above  sea  level  of  the  top  of  the 
haze  layer;  10,000  for  a  SAC  Normal  Day. 

Table  i4 

OVERPRESSURE  CARD  FORMAT 

(FORMAT  (15,  2F1 5.8) ) 

Columns 

Program 

variable 

name 

Description 

1-5 

I  SABER 

An  indicator  of  whether  the  following  two  fields  of 
this  card  are  to  be  used.  If  ISABER=1 ,  the  values  are 
to  be  used;  otherwise,  input  ISABER=0  and  QUANTO  will 
compute  the  values. 

6-20 

HORF 

The  lethal  overpressure  radius,  in  feet. 

21-35 

TSA 

The  time  of  shock  arrival,  in  seconds. 
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Columns 


Program 

variable 


ISNAPT 


Table  15 

THERMAL  CARD  FORMAT 
(FORMAT  (15,  2F15.8)) 


Description 


An  indicator  of  wheth;  '  the  following  field  on  this 
card  is  to  be  used.  If  ISNAPT=1,  the  value  is  to  be 
used;  otherwise,  input  ISNAPT=0,  and  QUANTO  will 
compute  the  value. 

The  lethal  thermal  radius,  in  feet. 


g.  Convergence  Parameters 

Several  parameters  may  be  input  to  control  the  termination  of  QUANTO's 
iterative  procedure  for  converging  the  X-.'s  in  computing  the  optimal  laydown. 

*  J 

As  described  in  AFWL-TR-73-242,  the  procedure  terminates  (1)  when  the  X^. 
matrix  is  converged  to  some  tolerance  e,  (2)  when  the  expected  kill  does  not 
significantly  increase  for  a  given  number  of  iterations,  or  (3)  when  the  number 
of  iterations  reaches  a  maximum  specified  by  the  user.  The  convergence  param¬ 
eters  are  input  by  the  user  in  the  format  described  in  table  16  to  indicate  the 
final  tolerance  e,  the  number  of  kills  used  for  testing  for  a  "significant 
increase,"  the  interval  of  iterations  over  which  the  kill  increase  is  measured, 
and  the  maximum  number  of  iterations.  Current  values  of  the  parameters  listed 
in  table  16  are  0.01,  20,  100,  and  0.0001,  in  the  order  of  the  table. 

h.  Initial  Allocation 


A  missile  laydowr.  must  be  input  to  QUANTO  to  start  the  iterative  pro¬ 
cedure  for  improving  the  laydown.  The  initial  allocation  of  missiles  to 
targets  is  input  submarine  by  submarine.  The  submarines  are  in  thj  order  of 
the  submarine  locations,  with  all  submarines  at  one  location  p.-'  ceding  the 
first  submarine  at  the  next  location.  One  or  more  cards,  in  the  format  (1415), 
are  input  for  each  submarine  where  the  numbers  on  the  cards  are  the  ‘■arget 
numbers  to  which  the  SLBMs  from  that  submarine  (in  ascending  order  by  salvo  or 
launch  time)  are  allocated.  One  card  per  submarine  is  sufficient  if  each  sub¬ 
marine  has  14  or  fewer  missiles;  otherwise,  multiple  c*rds  per  submarine  are 
needed  with  a  new  card  started  for  each  new  submarine. 
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Table  16 

CONVERGENCE  PARAMETERS  FORMAT 
(FORMAT  (F10.4,  215,  F10.4)) 


Program 

variable 

Columns  name  Description 


1-10  CHGKIL 

11-15  ITCUT1 

16-20  ITCUT2 

21-30  EPSCUT 


The  number  of  kills  used  to  distinguish  between  a 
significant  kill  increase  (in  ITCUT2  iterations— see 
below)  and  an  insignificant  increase. 

The  maximum  number  of  groups  of  ITCUT2  iterations  (see 
below)  which  will  be  accomplished  by  QUANTO  in  any  lay 
down  optimization  procedure  before  the  iteration  pro¬ 
cedure  is  terminated  by  QUANTO. 

The  number  of  iterations  in  each  grouD,  where  the 
increase  in  expected  kill  resulting  from  each  group  of 
iterations  is  tested  against  the  amount  CHGKIL  to 
determine  if  the  increase  was  large  enough  to  warrant 
continuing  the  iterations  through  another  group. 

A  tolerance  quantity  used  to  test  for  convergence  of 
the  A.j j  matrix.  QUANTO  actually  converges  the  A^. 

matrix  to  tolerances  of  c=.l,  then  0.01,  then  0.001, 
etc.,  until  convergence  to  a  tolerance  e<1.5  times 
EPSCUT  is  achieved. 


2.  SPECIFICATION  OF  ARRAY  DIMENSIONS 

Since  array  dimensions  as  currently  set  in  QUANTO  may  not  be  sufficient  for 
some  types  of  problems,  the  arrays  which  have  dimensions  of  interest  to  the 
user  are  listed  in  table  17  with  the  problem-dependent  dimensions  indicated  as 
program  variable  names  described  in  table  13.  Only  two  of  these  program 
variables,  MXTGT  and  MXWPNS,  actually  appear  in  the  QUANTO  code  and  must  be 
set  in  the  QUANTO  main  program  (in  a  DATA  statement).  The  others  cross- 
reference  the  two  tables  and  represent  constants  which  may  need  to  be  changed 
(in  the  routines  indicated)  for  problems  which  require  more  capacity  than  the 
constants  of  table  18  permit.  In  the  execution  of  QUANTO,  the  maximum  index 
of  elements  accessed  in  the  arrays  is  controlled  by  program  variables,  so  the 
constants  specified  in  the  DIMENSION  and  COMMON  statements  must  be  at  least  as 
large  as  (but  may  be  larger  than)  the  controlling  program  variables  input 
through  (or  conputed  from  inputs  in)  the  data  deck.  Complete  descriptions  of 
those  variables  directly  input  may  be  found  in  the  description  of  the  input 
deck. 
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To  conserve  core,  the  user  may  want  to  reduce  the  array  dir —:r<s ions  to  the 
minimum  required  to  run  his  problems.  Furthermore,  if  only  one  type  of  air¬ 
craft  occurs  in  his  problems,  the  arrays  FLAMB  and  FLAMBI  may  be  equivalenced 
in  the  main  program  QUANTO. 

3.  SAMPLE  QUANTO  PUN  CONSIDERATIONS  • 

The  listing  of  QUANT0  in  appendix  I  is  the  most  current  one  as  of  the  time 
this  report  was  produced.  For  convenience,  references  to  the  lines  of  the 
program  will  use  the  alphanumeric  identifiers  on  the  right  side  of  each  line. 

Thus,  the  first  line  of  the  program  is  line  QUA  10.  This  section  will  present 
the  reader  with  the  required  considerations  for  several  typical  problems. 

a.  Considerations  Concerning  the  Number  of  Aircraft  Types 

As  the  program  is  listed  in  appendix  I,  up  to  ?5  bases,  168  weapon 
groups,  one  type  of  aircraft,  etc.  (in  accordance  with  the  figures  of  table  18) 
are  permitted  in  the  problem(s)  to  be  run.  Note  that  only  one^  aircraft  type 
is  permitted  since  the  arrays  FLAMB  and  FLAMBI  are  equivalenced  in  line  OUA  160. 

In  view  of  this  fact,  core  requirements  could  be  reduced  (when  the  problem  has 
only  one  aircraft  type)  by  changing  the  dimension^  in  lines  QUA  30,  OUA  50, 

QUA  70,  and  QUA  110  to  the  following,  respectively: 

1  SURV (35,168,1), FLAMB 1(35,168,1),  * 

3  VAL (35,1 ), PROD (35,1 ) ,VKILL(35 ,1 ) , 

5  RELVAL(1 ) , BRTIME ( 1 ) , PSI ( 1 ).ICAL(1 ) ,PKCIR(1 ) ,PKAN(1 ) , 

9  QPTS(30) ,QAREAL(30,1 ,4) ,QRLMX(30,1 ,4)  ,DELTAC(2,1 ,1 ) ,JFLAC(2,1 ) 

The  user  may  quickly  determine  all  of  the  occurrences  of  dimensions  permitting 
two  types  of  aircraft  by  searching  table  17  for  all  occurrences  of  the  dimen¬ 
sion  MXNTYP.  In  the  QUANTO  version  in  appendix  I,  MXNTYP  has  the  value  2 
wherever  it  occurs.  Besides  the  above  four  lines,  MXNTYP  also  occurs  in  the 
COMMON'S  labeled  DISTIME,  ACFTS,  and  NUCLER.  Unfortunately,  changing  the 
dimensions  in  these  labeled  COMMON  statements  requires  changing  several  lines 
since  the  COMMON  statements  appear  in  multiple  routines,  as  listed  in  table  17. 

The  user  will  probably  want  to  weigh  the  inconveniences  of  changing  QUANTO 
program  statements  against  the  core  savings  to  be  gained.  For  instance,  the 
just  described  changes  of  lines  QUA  30,  QUA  50,  OUA  70,  and  QUA  110  account 
for  core  savings  of  11760,  105,  6,  and  247  If  nations,  respectively.  The  dimen¬ 
sions  which  appear  in  the  QUANTO  version  in  app  ndix  I  are  intended  to  be 
adequate  for  most  problems.  If  all  these  dimensions  are  adequate  for  the  user's 
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problems,  but  the  problem  has  two  types  of  aircraft,  the  user  need  only  delete 
the  EQUIVALENCE  statement  (line  QUA  160)  for  QUANTO  to  run  the  problem. 

b.  Changing  the  Numbers  of  Targets  and/or  Weapon  Groups 

By  studying  the  first  16  lines  of  the  QUANTO  listing  in  appendix  I,  the 
user  may  determine  that  core  requirements  are  most  critically  dependent  on  the 
numbers  of  targets,  weapon  groups,  and  types  of  aircraft.  In  particular, 
changes  in  lines  QUA  20,  QUA  30,  QUA  150,  and  QUA  160  will  usually  bring  the 
greatest  payofr  in  core  savings  when  the  problems  to  be  run  have  fewer  than  35 
targets,  168  weapon  groups,  and/or  two  types  of  aircraft.  The  considerations 
concerning  the  numbers  of  types  of  aircraft  have  already  been  discussed  in 
paragraph  a  above. 

When  the  problem  has  fewer  than  35  targets,  core  savings  will  result 
from  substituting  the  number  of  targets  for  35  wherever  35  occurs  in  lines 
QUA  20,  QUA  30,  and  QUA  150.  In  addition,  if  more  than  one  type  of  aircraft 
is  used,  then  the  dimensions  of  the  arrays  VAL,  PROD,  and  VKILL  in  line  OUA  50 
must  be  made  consistent  with  the  dimension  changes  in  lines  QUA  20,  QUA  30, 
and  QUA  150.  Of  course,  the  dimension  MXTGT  occurs  elsewhere,  as  may  oe  seen 
in  table  17,  but  relatively  small  core  savings  result  from  changes  elsewhere. 

Likewise,  the  number  of  weapon  groups  (which  is  the  sum  of  salvos  from 
separately  input  submarine  locations)  may  be  reduced  from  168  by  changes  in 
lines  QUA  20,  QUA  30,  and  QUA  150.  These  are  all  the  lines  in  which  the 
dimension  MXWPNS  (of  table  18)  occurs. 

Changes  in  the  dimensions  must  be  consistent  with  other  changes  in  the 
input  deck.  Dimensions  must  be  at  least  as  large  as  required  by  the  input,  or 
results  will  be  unpredictable.  A  change  in  the  number  of  targets  will  be 
reflected  in  the  initial  data  card  and  the  beddown  data.  A  change  in  the 
number  of  weapon  groups  will  be  reflected  i.i  the  initial  data  card,  the  number 
of  submarine  positions  or  salvos  from  those  positions,  and  the  initial  alloca¬ 
tion  of  SLBMs. 

c.  Output  Options 

The  variable  IOUT  input  in  the  initial  data  card  indicates  when  an 
expanded  output,  sometimes  useful  for  debugging,  is  desired.  This  output 
should  never  be  requested  for  production  runs  and  is  only  occasionally  useful 
to  the  programmer  analyzing  program  operations.  Consequently,  I0UT=1  should 
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always  be  input  for  production  runs.  Even  then,  voluminous  output  will  be 
produced  if  beddown  optimization  is  requested  (i.e.,  IV0PT=2),  and  considerable 
output  is  produced  by  many  other  types  of  problems.  Therefore,  microfilm 
output  is  recommended  until  the  volume  of  output  is  well  known. 

d.  Distance  to  Centroid  Computations 

A  side  computation  is  required  before  the  distances  to  the  centroids 
may  be  estimated  and  input  to  QUANTO.  The  centroids  of  the  areas  of  dispersing 
aircraft  are  dependent  on  the  flyout  profile  and  the  geometry  of  turning.  A 
rough  approximation  of  the  centroid  location,  for  aircraft  departing  a  single 
runway,  may  be  obtained  by  computing  (1)  the  location  of  an  aircraft  which 
turns  180  degrees  following  take-off  at  the  time  at  which  the  aircraft  reaches 
its  terminal  velocity,  and  (2)  the  location  of  that  same  aircraft  after  the 
same  period  of  time,  assuming  it  had  not  turned.  The  midpoint  of  these  two 
locations  would  then  be  the  approximate  location  of  the  centroid.  A  program 
is  under  development  which  will  compute  the  centroid  location  giving  equal 
weight  to  each  possible  aircraft  location  for  turns  of  from  0  to  180  degrees 
in  either  direction.  As  the  user  might  guess,  considerable  information  about 
the  flight  characteristics  of  the  aircraft  is  necessary  for  this  computation. 

If  multiple  types  of  aircraft  are  used,  the  user  must  select  one  type  as  the 
one  determining  the  centroid  location. 
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Table  17 

ARRAYS  OF  QUANTO  WITH  PROBLEM-DEPENDENT  DIMENSIONS 


Array  name 
and 

dimensions 

A.  Arrays  not  in  COMMON 


Array  contents 

(and  routines  which  have  constant  dimensions  for 
array  in  COMMON  or  DIMENSION  statements) 


1. 

ALOC  (MXTGT,  MXWPNS) 

The  n. •  allocation  matrix  (in  routine  OUANTO). 

*  J 

2. 

FLAMB  (MXTGT, 

MXWPNS) 

The  A  -  ■  matrix,  whose  definition  depends  on  the 

•  J 

number  of  aircraft  types  (in  QUANTO). 

3, 

SURV  (MXTGT,  MXWPNS, 
MXNTYP) 

The  S^j  survivability  matrix  for  all  aircraft 
types  (in  QUANTO). 

4. 

FLAMB I  (MXTGT, 

MXWPNS,  MXNTYP) 

The  matrices  for  all  aircraft  types  (in 

QUANTO). 

5. 

TGTLAT  (MXTGT) 

The  latitudes  of  the  targets  (in  QUANTO). 

6. 

TGTLNG  (MXTGT) 

The  longitudes  of  the  targets  (in  QUANTO). 

7. 

DTCENT  (MXTGT) 

The  distances  to  the  centroids  of  the  areas  of 
dispersed  aircraft  leaving  the  tarqets  (in 
QUANTO). 

8. 

NRWAYS  (MXTGT) 

The  number  of  runways  at  each  target  (in  OUANTO) 

9. 

NWALOC  (MXTGT) 

The  number  of  weapons  allocated  to  each  tarqet 
(in  QUANTO) . 

10. 

VAL  (MXTGT,  MXNTYP) 

The  value  of  the  aircraft  of  each  type  on  each 
targe*  (in  QUANTO). 

11. 

PROD  (MXTGT,  MXNTYP) 

The  survivability  products 

NWPNS  /  n..\ 

n  (s«  ) 
j=i  v  ' 

for  each  target  and  each  type  aircraft  (in 
QUANTO). 

12. 

VKILL  (MXTGT, 

MXNTYP) 

The  value  of  the  aircraft  of  each  type  killed 
for  each  target  (in  QUANTO). 

13. 

ISEQ  (MXTGT,  MXAC) 

The  take-off  sequence  on  each  base,  as  indicated 

by  an  ordered  list  of  aircraft  type  numbers  (in 
QUANTO). 


**  \  **■ 
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Table  17  (cont'd) 

Array  name  Array  contents 

and  (and  routines  which  have  constant  dimensic  ,s  for 

dimensions  array  in  COMMON  or  DIMENSION  statements) 

14.  BRT  (MXAC)  A  working  area  used  to  compute  the  brake  release 

times  for  each  aircraft  on  a  base  (in  QUANTO). 

15.  RELVAL  (MXNTYP)  The  point  value  assigned  to  a  single  aircraft  of 

each  type  (in  QUANTO). 

16.  BRTIME  (MXNTYP)  The  brake  release  times  for  each  type  aircraft, 

if  that  type  takes  off  first  from  any  base  (in 
QUANTO) . 

17.  PSi  (MXNTYP)  The  hardness  of  each  aircraft  type  to  overpressure; 

used  to  distinguish  between  kill  and  nonkill  (in 
QUANTO). 

18.  ICAL  (MXNTYP)  The  hardness  of  each  aircraft  type  to  incident 

thermal  energy;  used  to  distinguish  between  kill 
and  nonkill  (in  QUANTO). 

19.  PKCIR  (MXNTYP)  A  working  area  used  to  store  the  computed  P^  for 

each  aircraft  type  when  the  aircraft  are  assumed 
to  be  uniformly  distributed  within  a  circle  (in 
QUANTO). 

2*.  'M  (MXNTYP)  A  working  area  used  to  store  the  computed  P^  for 

each  aircraft  type  when  the  aircraft  are  assumed 
to  be  uniformly  distributed  within  an  annulus  (in 
QUANTO). 

21.  SUBLAT  (MXSUB)  The  latitudes  of  the  submarine  locations  (in 

QUANTO). 

22.  SUBLNG  (MXSUB)  The  longitudes  of  the  submarine  locations  (in 

QUANTO). 

23.  ISUBS  (MXSUB)  The  number  of  submarines  at  each  submarine  loca¬ 

tion  (in  QUANTO). 

24.  NMPS  (MXSUB)  The  number  of  missiles  on  each  submarine  at  each 

submarine  location  (in  QUANTO). 

25.  MTYPE  (MXSUB)  The  type  of  missile  on  each  submarine  at  each 

submarine  location  (in  QUANTO). 

26.  ITGTNO  (MXM)  A  working  area  used  to  store  the  target  numbers 

to  which  the  missiles  from  a  single  submarine 
are  initially  allocated  (in  QUANTO). 
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Table  17  (cont'd) 


Array  name 
and 

dimensions 
DELTM  (MXMTYP) 


28.  RELML  (MXMTYP) 


29.  RELMF  (MXMTYP) 


30.  RELMWH  (MXMTYP) 


31.  RNGMAX  (MXMTYP) 

32.  RNGMIN  (MXMTYP) 

33.  YIELD  (MXMTYP) 

34.  FMTIME  (MXTRAJ, 
MXMTYP) 

35.  FMRNG  (MXTRAJ, 
MXMTYP) 

36.  MPROF  (MXMTYP) 


37.  QAREAL  (30,  MXNTYP, 
MXMTYP) 


38.  QRLMX  (30,  MXNTYP, 
MXMTYP) 


39.  DELTAC  (MXRWAY, 
MXNTYP,  MXNTYP) 


40.  JFLAC  (2,  MXNTYP) 


41.  ALHOLD  (MXTGT) 


Array  contents 

(and  routines  which  have  constant  dimensions  for 
array  in  COMMON  or  DIMENSION  statements) 

The  launch  interval  of  each  missile  type  (in 
QUANTO). 

The  launch  reliability  of  each  missile  type  (in 
QUANTO). 

The  in-flight  reliability  of  each  missile  type 
(in  QUANTO). 

The  warhead  reliability  of  each  missile  type  (in 
QUANTO). 

The  maximum  range  of  each  missile  type  (in  QUANTO). 

The  minimum  range  of  each  missile  type  (in  QUANTO). 

The  yield  of  each  missile  type  (in  OUANTO). 

The  times  that  are  input  in  describing  the  trajec¬ 
tories  of  each  type  missile  (in  OUANTO). 

The  ground  ranges  that  are  input  in  describing 
the  trajectories  of  each  type  missile  (in  OUANTO). 

The  number  of  time/distance  pairs  describing  the 
trajectories  of  each  missile  type  (in  QUANTO). 

A  table  of  lethal  areas  for  30  distances  of  the 
detonation  from  the  centroid  for  each  aircraft 
and  missile  combination  (in  QUANTO). 

A  table  of  distances  from  detonation  point, 
describing  the  farthest  reach  of  the  lethal  area 
in  a  direction  away  from  the  centroid,  for  30 
distances  of  the  detonation  from  the  centroid  for 
each  aircraft  and  missile  combination  (in  QUANTO). 

The  take-off  intervals  between  each  pair  of  air¬ 
craft  types  from  bases  with  each  possible  number 
of  runways  (in  QUANTO). 

A  working  area  used  to  store  pointers  to  the 
first  and  last  aircraft  (of  each  type)  departing 
a  base  (in  QUANTO). 

A  working  area  used  to  integerize  the  weapon  lay- 
down  (in  AUNT). 
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Table  17  (cont'd) 


42. 


43. 


44. 


45. 


B. 

1. 


2. 


3. 

4. 

5. 


C. 


1. 

2. 


3. 


Array  name 
and 

dimensions 
VHOLD  (MXTGT) 


SUMAC  (5) 


SUMACK  (5) 


LOHOLD  (16) 
MXHOLO  (16) 
LOTEMP  (16) 
MXTEMP  (16) 
LOH  (16) 

MXH  (16) 


Array  contents 

(and  routines  which  have  constant  dimensions  for 
array  in  COMMON  or  DIMENSION  statements) 

A  working  area  used  to  integerize  the  beddown  (in 
VINT). 

A  working  area  used  to  compute  the  number  of  air¬ 
craft  of  each  type  on  a  single  target  for  up  to 
5  aircraft  types  (in  TGTKIL). 

A  working  area  used  to  compute  the  number  of  air¬ 
craft  killed  of  each  type  on  a  single  target  for 
up  to  5  aircraft  types  (in  TGTKIL). 

Working  areas  used  in  relocating  submarines  and 
assigning  their  SLBMs  to  new  targets,  for  up  to 
16  missiles  on  a  submarine  (in  SUBADJ). 


In  COMMON  named  DISTIME  (arrays  appear  in  routines  QUANTO,  PROCESS,  DETAREA, 

BAKUP,  TIMERAO,  DATAGEN,  and  TIMEGEN  with  constant 
dimensions) 


FOTIME  (MXPROF, 
MXfJTYP)  (also 
called  S) 


The  times  that  are  input  and/or  generated  in 
describing  the  flight  profile  of  each  type  air¬ 
craft. 


FORNG  (MXPROF, 
MXNTYP)  (also 
called  D) 


The  ground  ranges  that  are  input  ar.d/or  generated 
in  describing  the  flight  profile  of  each  type  air¬ 
craft. 


NPROF  (MXNTYP) 
(also  called 
NUMDATA) 


The  number  of  points  of  time  and  distance  input 
and/or  generated  for  the  flight  profile  of  each 
type  aircraft. 


C V  (MXNTYP) 


The  final  velocity  reached  by  each  aircraft  type. 


TI  (MXNTYP) 


The  time  interval  used  in  generating  profile 
points  for  each  aircraft  type. 


In  COMMON  named  ACFTS  (arrays  appear  in  routines  PROCESS  and  DETAREA  with 

constant  dimensions) 

A  (MXPIN,  MXNTYP)  The  altitude  values  input  for  each  aircraft 

profile. 

F  (MXPIN,  MXNTYP)  The  ground  range  values  input  for  each  aircraft 

profile. 

G  (MXPIN,  MXNTYP)  The  time  values  input  for  each  aircraft  profile. 
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Array  name 
and 

dimensions 

4.  VS  (MXPIN,  MXNTYP) 

5.  VEL  (MXPIN,  MXNTYP) 

6.  ACCEL  (MXPIN,  MXNTYP) 

7.  NDATA  (MXNTYP) 

D.  In  COMMON  named  NUCLER 

1.  FLRP  (MXNTYP,  MXMTYP) 

2.  FTSA  (MXNTYP,  MXMTYP) 

3.  FLRT  (MXNTYP,  MXMTYP) 

4.  BURST  (MXNTYP) 

5.  DISMIN  (MXNTYP) 

6.  VPSI  (MXNTYP) 

7.  VCAL  (MXNTYP) 

8.  VYIELD  (MXMTYP) 


Table  17  (cont'd) 


Array  consents 

(and  routines  which  have  con', tint  dimensions  for 
_ array  in  COMMON  or  DIMELSH  N  statements) 

The  velocities  of  sound  for  altitude  values  input 
for  each  aircraft  profile. 

The  velocities  input  for  each  aircraft  profile. 

The  level -off  accelerations  input  for  each  air¬ 
craft  profile. 

The  number  of  input  cets  describing  each  aircraft 
profile. 

(arrays  appear  in  routines  PROCESS  and  DETAREA  with 
constant  dimensions) 

The  computed  let.ial  radii  for  overpressure  for 
each  missile  tyue  against  each  aircraft  type. 

The  computed  times  of  overpressure  shock  arrival 
for  each  missile  type  against  each  aircraft  type. 

The  computed  lethal  thermal  radii  for  each  missile 
type  against  each  aircraft  type. 

The  heights  of  burst  for  each  type  aircraft. 

The  computed  horizontal  ground  distances  traveled 
by  each  type  aircraft  before  it  reaches  its 
terminal  altitude. 

The  overpressure  hardness  of  each  type  aircraft. 
The  thermal  hardness  of  each  type  aircraft. 

The  yield  of  each  type  missile. 
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Variable 

dimension 

MXTGT 

MXWPNS 


MXNTYP 


MX R WAY 
MXSUB 


MXMTYP 

MXTRAJ 


MXPROF 


MXPIN 


Table  18 

PROBLEM-DEPENDENT  DIMENSIONS  IN  QUANTO 


Description 


The  maximum  number  of  targets. 

The  maximum  number  of  weapon  groups.  A  weapon  group 
includes  all  potential  missiles  of  the  same  type 
launched  from  the  same  point  at  the  same  time.  The 
total  number  of  weapon  groups  in  a  given  problem  may 
be  computed  easily  by  summing  the  numbers  of  missiles 
per  submarine  (NMPS  of  table  7)  over  all  separately 
input  potential  submarine  locations. 

The  maximum  number  of  types  of  aircraft. 

The  maximum  number  of  rcraft  on  any  base. 

The  maximum  number  of  runways  at  a  base. 

The  maximum  number  of  submarine  locations. 

The  maximum  number  of  missile*  on  a  single  submarine. 

The  maximum  number  of  missile  types. 

The  maximum  number  of  time/distance  pairs  input  in 
describing  missile  trajectories. 

The  maximum  number  of  time/distance  pairs  input 
and/or  generated  in  describing  aircraft  flyout 
profiles. 

The  maximum  numbe’''  of  input  sets  describing  an 
aircraft  profile. 


Current 

OUANTO 

dimension 


♦Although  two  types  of  aircraft  are  permitted  by  the  dimension  statements  in 
QUANTO,  the  "EQUIVALENCE  (FLAMB,  FLAMBI)"  statement  in  QUANTO  must  be  removed 
before  running  a  problem  having  two  types  of  aircraft. 
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SECTION  III 

TIPS  ON  THE  UTILIZATION  OF  QUANTO 

This  section  describes  the  flow  of  information  to  and  from  the  program 
QUANTO  and  presents  the  user  with  the  job  control  language  (in  SCOPE  Version 
3.2)  required  to  execute  QUANTO  on  the  CDC  6600  computer  system  at  the  Air 
Force  Weapons  Laboratory  (AFWL),  Kirtland  AFB,  New  Mexico.  No  attempt  is  made 
to  describe  the  job  control  language  functions  in  detail,  but  the  reader  who 
is  familiar  with  some  computer  operating  system  should  be  able  to  generate 
similar  operations  by  referring  to  his  own  job  control  language  manuals  and 
the  discussion  and  examples  presented  here. 

1.  INFORMATION  FLOW 

The  ten  QUANTO  has  been  used  to  refer  to  the  aggregation  of  all  routines 
required  to  make  optimization  runs.  The  user  deals  with  the  program  (making 
modifications,  changing  dimensions,  etc.)  in  its  source  code  form  (i.e.,  the 
FORTRAN  statements).  This  source  code  must  be  converted  into  machine-usable 
instructions  called  object  code.  If  many  sets  of  data  are  to  be  run  independ¬ 
ently,  so  that  no  run  is  dependent  on  the  successful  completion  of  a  previous 
run,  the  source  code  should  be  compiled  once  into  the  object  code,  which  is 
called  QUANTOC,  and  recompilation  avoided  for  consecutive  runs.  In  figure  1 
the  information  flow  to  and  from  this  object  code  is  shown. 


Figure  1.  General  Flow  of  Information 
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The  identifiers  TAPE5,  TAPE6,  TAPE7,  and  TAPES  shown  in  figure  1  refer  to 
input/output  (I/O)  devices  which  may  be  referenced  by  I/O  unit  numbers  in  the 
FORTRAN  READ  and  WRITE  statements  in  QUANTO.  These  four  identifiers  are  listed 
in  the  first  statement  of  QUANTO,  the  program  header  card,  shown  here: 

PROGRAM  QUANTO (INPUT, OUTPUT, TAPE7,TAPE8, TAPE5= INPUT, TAPE6=0UTPUT)  # 

The  "normal  input1  (figure  1)  is  data  cards  or  "card  images"  from  a  data 
file.  This  card  input  is  read  from  the  TAPES  input  device.  The  amount  of 
input  required  from  this  device  depends  on  the  MODE  option  to  be  used,  as 
described  in  table  2. 

"Normal  output"  (figure  1)  is  that  produced  by  QUANTO  during  the  processing 
of  a  job  and  is  continually  transmitted  to  an  output  buffer  (disk  storage), 
identified  as  TAPE6.  This  output  is  subsequently  disposed  to  a  printer  or  a 
microfilm  output  device. 

"Restartable  output"  (figure  1)  may  be  generated  by  certain  jobs  to  permit 
a  subsequent  ;ub  to  continue  processing  using  the  results  of  the  first  job  as 
input.  As  described  ir  table  2,  all  information  necessary  for  the  continuation 
of  processing  may  be  requested  after  the  initial  computations  (survivabilities 
and  expected  kill)  by  inputing  M0DE=1  or  may  be  obtained  only  on  the  condition 
that  a  job  is  within  30  seconds  of  its  time  limit  (when  M0DE=2  or  3).  The  t 

latter  option  prohibits  jobs  from  terminating  at  the  time  limit  without  saving 
the  results  of  the  last  computation  cycle  in  a  convenient  form.  The  restartable 
output  is  transmitted  to  the  output  device  indicated  as  TAPE8  and  ultimately 
is  saved  on  a  physical  magnetic  tape.  Jobs  which  create  a  restart  tape  may  be 

5 

continued  by  reading  the  created  restart  tape  as  input  with  a  M0DE=2  job.  The 
restartable  input  (figure  1)  is  read  from  the  magnetic  tape  input  device 
identified  as  TAPE7. 

| 

i 

The  creation  of  restartable  I/O  has  several  purposes:  (1)  it  prevents  jobs 
from  terminating  at  the  time  limit,  due  to  an  insufficient  user  time  estimate, 
without  saving  the  results  of  its  computations;  (2)  it  eliminates  the  necessity 
to  reinitiate  the  problem  with  an  increased  time  limit;  and  (3)  it  allows  the 

i 

user  to  analyze  intermediate  results  to  assure  himself  that  the  job  is  progress¬ 
ing  properly  before  he  risks  a  greater  expenditure  of  computer  time. 

1 

s 

I 

1 

I 

i 

i 

T 
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2.  JOB  CONTROL  VARIATIONS 


Job  control  language  provides  a  means  to  exercise  control  over  the  manner 
in  which  a  particular  job  is  processed  by  a  computer  system.  Information 
sources  are  directly  (or  indirectly  by  default)  specified  through  control  cards. 
The  following  examples  offer  various  schemes  for  using  the  QUANTO  program  on 
the  AFWL  computer  system.  Bracketed  upper-case  Latin  letters  are  used  in  line 
with  the  control  cards  to  indicate  information  in  punched  cards,  e.g.,  the  deck 
containing  the  QUANTO  source  code.  Each  example  is  followed  by  a  brief 
description  of  the  overall  process. 

a.  Example  I 

J0BID.P2,  T1000.CM240000. 

TASK(MILLER,00000000-0XX, ORGANIZATION, TELEPHONE) 

REQUEST  TAPE7.  XX000  RING  OUT 
REWIND(TAPE7) 

REQUEST  TAPE8.  XX001  RING  IN 
REWIND(TAPE8) 

RUN(A, , , INPUT, OUTPUT, QUANTOC ,377777) 

PRESET 

QUANTOC  (L0377777  .INPUT  .OUTPUT  ,TAPE7  ,TAPE8 ) 

REWIND(TAPE7) 

RETURN(TAPE7) 

REWIND(TAPES) 

RETURN(TAPES) 

EXIT. 

DMP( 240000) 

7/8/9 

[QUANTO  SOURCE  CODE  PUNCHED  CATD  DECK] 

7/8/9 

[DATA  PUNCHED  CARD  DECK] 

6/ 7/8/9 

Example  I  illustrates  job  control  language  which  runs  QUANTO  in  batch 
processing  on  the  AFWL  computer  system.  In  the  job  card  a  core  requirement  of 
240,000  (octal)  words  and  a  time  limit  of  1000  (octal)  seconds  are  specified. 
These  limits  will  be  sufficient  for  most  individual  problems  run  by  QUANTO.  In 
particular,  the  core  is  sufficient  for  the  array  sizes  indicated  in  table  18. 

As  each  tape  request  card  is  processed,  a  flashing  message  appears  on  the 
computer  operator's  console.  The  operator  then  mounts  the  tapes  identified  by 
XX000  and  XX001.  This  example  assumes  the  presence  of  restartable  input 
(TAPE7)  and  the  possibility  of  generating  >"estartable  output  (TAPE8)  which  is 
to  be  saved.  If  either  of  these  conditions  is  absent,  all  references  to  the 
corresponding  tape  should  be  removed  from  the  job  control  language. 
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The  RUN  card  requests  compilation  of  the  QUANTO  source  code  into  the 
object  code  file  called  QUANTOC.  The  LC=377777  in  the  line  requesting  execution 
of  the  QUANTOC  code  removes  the  line  count  limit  on  output.  This  is  frequently 
required  since  QUANTO  currently  generates  considerable  output  for  many  types  of 
problems  and  values  of  the  input  parameters.  A  compiled  listing  of  the  program 
statements  and  the  program  would  appear  on  paper  using  the  job  control  language 
cf  example  I.  The  DMP  card  requests  a  dump  of  the  entire  core  segment  if  an 
abnormal  termination  of  the  job  occurs.  The  notations  "7/8/9"  and  "6/7/8/9" 
indicate  cards  having  multiple  numeric  punches  in  column  one  which  translate 
to  "end  of  record"  and  "end  of  file,"  respectively,  on  magnetic  tape. 

A  major  problem  with  the  previous  example  is  that  it  ties  up  two  tape- 
drive  units  for  the  duration  of  the  program  run.  Example  II  affords  a  means  of 
transferring  information  to  and  from  QUANTO  via  disk  storage,  again  assuming 
that  both  tapes  (TAPE7,  TAPE8)  are  necessary  and  contain  information. 

b.  Example  II 

J0BID,P2,T1000,CM60000. 

TASK( NAME , 00000000-0XX, ORGANIZATION .TELEPHONE ) 

RFL(IOOOO)  REDUCE  TO  10K  FOR  TAPE  HANDLING 
REQUEST  TAPE7.  XX000  RING  OUT 
REWIND (TAPE7 ) 

C0PY(TAPE7,DISK7) 

REWIND(TAPE7) 

RETURN (TAPE7) 

RFL( 100000)  FOR  COMPILE 

RUN (A,,, INPUT, OUTPUT, QUANTOC,  377777) 

RFL( 240000)  FOR  LOAD 

DDrcpT 

REWIND ( D I SK7 ) 

QUANTOC (LC=377777, INPUT, FILMPR.DISK7 .DISK8) 

RFL(IOOOO) 

REQUEST  TAPE8.  XX000  RING  IN 
REWIND(TAPE8) 

REWIND ( D ISK8 ) 

C0PY(DISK8,TAPE8) 

REWIND(TAPE8) 

RETURN (TAPE8) 

EXIT. 

DMP (240000) 

7/8/9 

[QUANTO  SOURCE  CODE  PUNCHED  CARD  DECK] 

7/8/9 

[DATA  PUNCHED  CARD  DECK] 

6/7/8/ 9 
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Note  that  the  job  card  requests  60,000  (octal)  words  of  core  memory  to 
conform  with  the  AFWL  priority  system  but  that  the  needed  core  is  adjusted 
throughout  the  job  control  language  by  RFL  cards.  The  output  from  the  execution 
of  QUANT0C  is  placed  on  microfilm  due  to  the  FILMPR  entry  on  the  QUANT0C  execute 
card. 


A  major  drawback  of  the  first  two  examples  is  the  punched  card  handling, 
since  the  QUANTO  source  deck  contains  approximately  4500  cards.  A  method  for 
handling  large  jobs  is  available  under  the  AFWL  computer  system  and  is  shown  in 
the  next  example. 

c.  Example  III 

JOBID,P2,TlOOO,CM60G0O. 

TASK( NAME.OOOOOOOO-OXX.ORG ,TEL } 

RFL(IOOOO)  REDUCE  TO  10K  FOR  TAPE  HANDLING 
REQUEST  TAPE7.  XX000  RING  OUT 
REWIND (TAPE7) 

CQPY(TAPE7,DISK7) 

REWIND(TAPE7) 

RETURN (TAPE7) 

COMMON (SABCEM) 

RFL (40000)  FOR  UPDATE 
UPDATE(Q,P=SABCEM,D,L=A1 ) 

RETURN (SABCEM) 

RFL (100000)  FOR  COMPILE 

RUN(A, , .COMPILE, OUTPUT, QUANTOC, 377777) 

RFL (240000)  FOR  LOAD 

PR  pc;  ft 

REWIND( DISK7 ) 

QUANTOC ( LC«377777 , INPUT, FILMPR, DISK7.DISK8) 

RFL(IOOOO) 

REQUEST  TAPE8.  XX001  RING  IN 
REWIND(TAPE8) 

REWIND(DISK8) 

C0PY(DISK8,TAPE8) 

REWIND(TAPE8) 

RETURN (TAPE8 ) 

7/8/9 

♦COMPILE  QUANTOT 
7/8/9 

[DATA  PUNCHED  CARD  DECK] 

6/7/S/9 

For  this  example,  the  QUANTO  source  code  is  assumed  to  be  previously 
built  as  an  update  file  called  QUANTOT  and  placed  in  the  COMMON  file,  SABCEM. 

The  AFWL  update  system  could  create  temporary  changes  to  the  QUANTOT  file  if 
these  changes  appeared  after  the  *C0MPILE  QUANTOT  card;  for  instance,  array 
sizes  could  be  changed  by  replacing  the  appropriate  DIMENSION  statements.  Such 
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changes,  if  any,  are  made  when  the  UPDATE  card  is  encountered  in  the  job  control 
language.  The  resultant  updated  program,  in  source  code  form,  is  placed  in  a 
file  named  COMPILE  by  the  UPDATE  step.  Thus,  COMPILE  appears  in  the  RUN  card 
instead  of  the  usual  INPUT. 

For  production  purposes  the  object  code  QUANTOC  could  be  saved  on  disk 
as  shown  in  example  IV.  Then  multiple  executions  of  QUANTOC  could  be  requested 
for  multiple  sets  of  data  without  requiring  multiple  compilations  of  the  source 
code. 


d.  Example  IV 

J0BID,P5,T177,CM40000. 

TASK( NAME, 00000000-0XX, ORGANIZATION, TELEPHONE) 

COMMON (SABCEM) 

UPDATE(Q,P=SABCEM„L-A1 ,D) 

RETURN (SABCEM) 

RUN(A,,,COMPILE,OUTPUT, QUANTOC, 377777) 

COMMON (QUANTOC) 

RETURN (QUANTOC) 

7/8/9 

♦COMPILE  QUANTOT 

7/8/9 

6/7/8/9 

Obviously  many  variations  of  job  control  language  are  possible,  but 
the  preceding  examples  should  suffice  to  demonstrate  the  basic  means  of  running 
QUANTO. 
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SECTION  IV 
SUMMARY 

This  report  has  described  the  input  format,  array  dimensions,  and  job 
control  language  of  concern  to  the  user  of  the  program  QUANTO.  It  should  be 
expected  that  occasional  problems  with  the  program  will  occur  as  the  user 
attemps  runs  with  new  combinations  of  parameter  values.  Such  difficulties 
should  be  brought  to  the  attention  of  the  authors,  who  will  advise  and  instruct 
the  user  of  QUANTO,  or  the  Air  Force  Weapons  Laboratory.  As  QUANTO  is  used, 
modifications  and  improvements  are  inevitable.  The  most  current  version  of 
QUANTO  and  the  documentation  may  be  obtained  from  the  Air  Force  Weapons 
Laboratory. 

The  mathematical  model  used  by  QUANTO  would  be  appropriate  for  applications 
other  than  SLBM  attacks  on  flushing  aircraft,  with  slight  modifications.  For 
instance,  if  the  survivability  of  any  target  from  any  weapon  can  be  quantified, 
a  weapon  allocation  may  be  obtained  from  the  optimization  model.  A  complete 
description  of  the  mathematical  model  and  its  assumptions  may  be  found  in  AFWL 
Technical  Report  AFWL-TR-73-242. 
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APPENDIX  I 

CURRENT  LISTING  OF  QUANTO  SOURCE  CODE 


PROGRAM  QUANTO  (INPUT, OU'?UT,TAP£7, TAPES, TAPE5=INPUT,TAP£6=QUTPUT)  QUA 
DIMENSION  ALQC  (35,168)  t  FL  AMB  1 35  ,  lf-8)  ,  QUA 

1  SURV (35,168, 2),  FLAM SI. 35, 16 8, 2),  QUA 

2  T6TLAT  (35)  ,  TGTLNGI 35)  .OTCENT  (35)  «NRtf AYS  (35)  , NHAlOC (35 ) «  QUA 

3  VAL (35,2) . PROD (35 , 2f ,VKILL(35 ,2) ,  QUA 

4  ISEQ (35,34) , SRT (34) ,  QUA 

5  RELVAL (2) , 88 TIME (2 ) ,PSI ( 2) ,ICAL (2 ) ,PKC IR (2) , PKAN (2 ) ,  QUA 

6  SUSLAT (28) ,SUSLNG(28) ,ISUBS(28) ,NHPS(28> ,MT YP £ (28 ) , ITGTNO ( lo ) ,  QUA 

7  DELTM  (*♦)  ,RELML(4)  ,R£LHF<  <♦»  ,RELMWH(4)  ,RNGhAX  (<,) , RNGMIN  (4)  ,  QUA 

8  YlELD(4)»FMTIHt(15,4) ,FMRNG(15,<) ,MPROF(4) ,  QUA 

9  QPTS (30) «QAREAL (30 ,2,4) ,QRLHX (3 ) ,2, 4) , DtLTAC (2, 2,2) ,JFlAC (2,2)  QUA 
COMMON  /OISTIME/  FOTIME (99 ,2) , FORNG (99 ,2) ,NPROF (2) ,CV(2),TI(2J ,JTY  QUA 

1PE, NTYPES, MIST YP,MTYP£S,RLHAX  QUA 

DATA  ROPOEG, VERYHI, PI/, 0174532925, 1.JE+3C0, 3. 14159265/  QUA 

DATA  MXTGT , MXMPNS/35,168/  QUA 

EQUIVALENCE  (FLAMS, FLAM0I)  QUA 

IOUT*l  SUPPRESSES  INTERMtOIATE  MULTIPLIER  AMO  ALLOCATION  OUTPUT.  QUA 
OTHERWISE  SET  I0UT=2.  ...  QUA 

IF  ISOFT *1 ,  SUB  LOCATIONS  MILL  NOT  BE  OPTIMIZED  AMONG  INPUT  SUB  QUA 

LOCATIONS.  QUA 

IF  IS0PT«2,  SUB  LOCATIONS  MILL  BE  OPTIMIZED.  QUA 

IF  IVOPT  =  1,  BEDOOMN  MILL  NOT  BE  OPTIMIZED.  QUA 

IF  IVOPT  =  2,  BEOOOMN  MILL  BE  OPTIMIZED.  QUA 

REAO  890 ,  MTGTS, NSU8S, NTYPES, HXRHAY, NTYPES, IOUT.ISOPT, IVOPT  ,J*CASt*QU» 

1MOOE  QUA 

IF  (ENOFILE  5)  800,20  QUA 

CALL  DATE  (10 ATE)  QUA 

CALL  CLOCK  (ITIME)  QUA 

CALL  PAGE  (Q)  QUA 

PRINT  900,  NCASE,MOOE,IOATE,ITIM£  .  QUA 

PRINT  910,  NTGTS,NSUBS,NTYP£S,HTYPES  QUA 

CALL  PAGE  (2)  QUA 

IF  (M00E.NE.2)  GO  TO  3C  QUA 

REAO  (7)  NMPNS,NC0L,IT£R,ITCUTl,ITCUT2,MQVtS,M0VEV,HQVtST,SPS,cPSCGUA 

1 UT , OBHOLD , DcLO BJ .SUBQ Bj ,CHG<I L  QUA 

REAO  (7)  (  ((SURV(I,  J,K),I=1,NTGT3),  J=1,NHPNS)  ,K=l,NTYPtS)  ...  QUA 
REAO  (7)  (  (  AlO C ( I ,  J )  1 1=1 ,  NTGTS  )  ,  J=  1 , iTWPNS )  QUA 

REAO  (7)  <(VAL(I,J) ,I-1,NTGTS) , J=1 , NTYPES) , (RELVAL ( I ) , 1=1 , NT YPtS) ,QUA 

1 (ISUBS ( I) , NMPS (I),MTYPE(I) ,I31,NSUSS)  QUA 

PRINT  920  QUA 

CALL  PAGE  (1)  QUA 

GC  TO  610  QUA 

00  50  I=1,NTGTS  QUA 

REAO  930,  (TGTLAT(I),TGTLNG(I),OTC£Nr(I) ,NRMAYS(I) , (VAL (I ,JT YPt) , JQUA 

ITYSE-1,«.  YPES) )  QUA 

NAC=Q  QUA 

00  40  JTYP£=l,NTYPtS  QUA 

NAC=NAC*VAL(I,JTYPE)+.G1  QUA 

REAO  940,  (ISEQ(I,IAC),IACb1,NAC)  QUA 

REAO  950,  (RELVAL(JTYPE),BRTIME(JTYPE) ,PSI ( JTYPE) , ICAL ( JTYPt) ,JTYPQUA 

1E=1, NTYPES)  i  QUA 
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READ  963  ,  ( ( (DELI AC  (IRX, JTYPE, KTY PE) ,<TYPE=1*NTYP£S) ,JV YP£=i»NTYPEQUA  62b 

IS) ,IRH=1,MXRHAY)  QUA  933 

PRINT  973  QUA  643 

CALL  PACE  (3)  QUA  553 

DO  70  I=l»NTGTS  QUA  Ebb 

NAC  =  Q  QUA  57w 

DO  60  JTYPt=i,NTYP£S  QUA  663 

NAC=NAC+VAl (I , JTYPE) Cl  QUA  59b 

FNAC=NAC  QUA  6b  L 

NLINES=(FNAC-1.)/3G.  QUA  613 

CALL  PAGE  (-MAX0 (2,NT YPES) -NLINES-2)  QUA  b20 

PRINT  960 ,  I , TGTLAT »I),TGTLNG(I),NRHAYS(I) .DTCENT ( I)  *  ( JTYPc. »  VAL (I, QUA  b33 

1 JTYPE ) » JTYPE  =  1  ,NTYP£S>  QUA  64b 

PRINT  990,  ( ISEQ (I,IAC),IAC=1,NAC)  QUA  b53 

CALL  PAGE  (-NTYPES-3)  QUA  bbO 

PRINT  130D,  J  JTYPE, RELVAL (JTY  >, 3RT IME (JTY32 ) ,PSI (JTYPE) , ICAL  (JTYQUA  b73 

1PE) , JTYPE-1 ,NTYP£S)  QUA  66w 

CALL  PAGE  (-MXRWAY*NTYPES*n  tS-3)  QUA  693 

PRINT  1010,  (((IRM,  JTYPE,  K  .  rt,OELTAC(IRH,  JTYPE,  KTVPc)  ,<TYPt=l  ,NT YQUA  700 

IPES) , JT YPE=1,N TYPES ), IRW=i ,MXRHAY)  QUA  7ll 

NHPNS=0  QUA  72L 

NCOL=0  QUA  73* 

00  60  I=1»NSUBS  QUA  7h0 

READ  1020  ,  SUBLAT(I),SUBLNG(I),ISUBS(I),NHPSCI),HTYPE(I)  QUA  7 5b 

NNPNS-NHPNS4NMPS(I)  QUA  76b 

IF  (ISU9S ( I) «  NE«0 )  NCOL=NC  OL+NMPS ( I )  QUA  770 

CALL  PAGE  (-NSUBS-2)  QUA  78b 

PRINT  1030  ,  (I.SUBLAT  iI),SU8LNG(I) , I  SUBS  Cl) , NMPS (I ),MTYP£(I), 1  =  1 , NQUA  79b 

1SUBS)  QUA  633 

CALL  PAGE  (-MTYPES*2)  QUA  610 

00  100  J*1,MTYPES  QUA  620 

NSUBT =0  QUA  83u 

03  93  I =i »NSUBS  QUA  6*u 

IF  (NTYPE(I).EQ. J)  NSUBT=NSUBT*I SUBS  ( I )  QUA  850 

PRINT  1040,  J, NSUBT  QUA  663 

DO  110  I=1,MTYF£S  QUA  873 

READ  963,  DEL TM ( I ),RELML(I),R6LMF(I),R£LMMH(I) , RNGMIN ( I ) , RNbMA X (I ) QUA  683 

1,YIELD(I)  QUA  690 

READ  1053  ,  HPR, (FMT IME  (J,I),FMRN5(J»I),J*1»MPR)  QUA  9jb 

MPROF (I ) =MPR  QUA  913 

CALL  PAGE  (-MTYPES-3)  QUA  923 

PRINT  1060,  ( JTYPE, DELTN(jTYPc) ,RELML (JTYPE) , RtLHF (JTYPE) ,R£LMWH(JQUA  930 

1TYPE)  .RNGMIN  (JTYPE)  .RNGMAX  (JTYPE) ,  YIELD  (JTYPE )  ,JTYP£~1  ,MTY  3c.S)  QUA  94o 

00  120  JTYPE=1,MTYPES  QUA  953 

MPR=MPROF (JTYPE)  QUA  960 

CALL  PAGE  (-MPR-2)  QUA  970 

PRINT  1070,  JTYPE,  (FMTIMcd, JTYPE)  ,FMRNG(I, JTYPE)  ,1=1, MPR)  QUA  98u 

CALL  PROCESS  (PSI , ICAL, YIELD, NCASE  .MODE)  QUA  99w 

IF  (MOOE.EQ.O)  GO  TO  10  QUAlbUw 

QUA1010 
/  QUAlu  2b 
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COM3UTE  SURVIVABILITIES.  QUA1U3j 

CONVERT  LOCATION  DEGREES  TO  RADIANS.  QUAlb4y 

00  130  1  =  1 .NT  GTS  QUA1Q50 

TGTLAT(I)=TGTLAT(I)*RDPD£G  QUAILdu 

TGTLNG(I)  =  TGTLNG(I  )*RDP£i£G  QUAlu7u 

00  140  1=1 . NSUBS  QUAlb8b 

SUBLA  T(I!=SU8LAT <I)*RDPOEG  QUAiw9u 

SUBLNG  ( I )  =  SUBLNG  ( 1. )  *ROPO£G  QUAlluO 

SET-UP  FOR  BUILDING  TABLES  OF  LETHAL  AREAS.  UUAlllu 

00  150  10=1.30  UUAllEu 

IF  (IQ.LE.ll)  QPTS  ( IQ) =IQ-1.  QUA113L 

IF  (IQ.GT.ll)  QPTS(IQ)=(IQ-9.)*5.  _  QUAll*.b 

OTCOLO=-1.  QUAllSu 

00  530  1  =  1  *  NT  GTS  QUA1160 

C?KT IM= VERYHI  QUAll7b 

OTCNt N=OTC£NT  (I)  QUAlloO 

IF  (OTONcH.EQ.OTCOLO)  GO  TO  180  UUA119C 

OTCOLO=OTCN£M  .  QUA12wb 

GENERATE  TABLE  OF  LETHAL  AREAS  FOR  NEW  DISTANCE  TO  CtNTROID.  QUA12lb 

00  160  IQ=1. 30  QUA122  0 

00  160  JTYP£=1,NT>?ES  QUA123,. 

00  160  MISTYP=1,MTYP£S  QUA124C 

QAR£AL(IQ,JTYPE,MISTYP)=OETAR£A(QI>TS(IQ)  .DTCNtW)  QUA125L 

QRLMX  (IQ,JTYPE,HISTYP)=RLMAX  _  QL'AlEbO 

CALL  PAGE  (0)  QUA127*. 

PRINT  1080.  OTCNEW  QUA128U 

CALL  PAGE  (11  QUA1290 

00  170  JTYPE=1,NTYP£S  QUA1300 

DO  170  MISTYP=1,MTYPES  QUA1321 

CALL  PAGE ( -33 )  _ 

PRINT  10  30  .  JTYPE .MISTYP, (QPTS(IQ>  .QAREAL  (IQ. JTYPE.MISTVP) ,QRLMX(IQUA1330 
IQ, JTYPE.MISTYP1 ,IQ=1«3C)  QUA1340 

CALL  PAGE  (0)  QUAl35b 

NAC=0  QUA 13 6b 

00  190  JTYPt=l.NTYPES  QUA1370 

NAC=NAC*VAL (I.JTYPE1+.01  QUA1380 

COMPUTE  BRAKE  RELEASE  TIMES  OF  EACH  AIRCRAFT.  QUAl39b 

ITYPE=I SEQ ( I , 1 )  QUA14bu 

BRT(1)=BRTIME(ITYP£)  QUA 141b 

IF  (NAC.LT.2)  GO  TO  210  QUA1420 

DO  200  IAC=2*  NAC  QUA1430 

NWY=NRH AYS ( I)  QUA1440 

ITYP1  =  ISEQ(I, I  AC-1)  QUA1456 

ITYPE=IS£Q( I, IAC)  QUA1460 

BRT(IAC)=BRT (IAC-U+OELTAC  (NWY.ITYPl.ITYPE)  QUAl47b 

CALL  PAGE  (-NAC-2 1  QUA1480 

PRINT  1100,  I, (ISEQ(I.IAC) ,8RT (I AC  1 . IAC=1 ,NAC 1  QUA1490 

LOCATE  FIRST  AND  LAST  AIRCRAFT  OF  EACH  TYPE.  QUA1500 

00  220  I AC=1 ,2  QUA151U 

00  220  JTYPE=1,NTYPES  UUAl52u 

JFLAC (I AC, JTYPE 1=0  QUA153L 


00  270  JTYPE*1,NTYPES 
00  230  I  AC*1 ,  NAC 
JAC=IAC 

IF  ( ISEQ (I « JAC) «£Q« JTYPE)  GO  TO  24 0 
CONTINUE 

NO  AIRCRAFT  OF  THIS  TYPE  FOUND. 

GO  TO  270 

JFLAC(1, JTYPE)=JAC 
00  250  IACS1 , NAC 
JAC=N AC+l-IAC 

IF  (I$EQ(I, JACI.EQ. JTYPE)  GO  TO  2oG 
CONTINUE 


QJA15**o 
QUA155G 
UUA15ou 
QUA157  u 
QUA156L 
QUA159Q 
QUAloOU 
QUA 1610 
QUA162o 
QUA1630 
QUAlbHu 
QUAl65u 


ME  MILL  BE  ABLE  TO  FINO  ONE  OF  THIS  TYPE  IF  ME  Gc.T  TO  THIS  POINT,  QUAlobfa 


BUT  ANYMAY... 

GO  TO  270 

JFLAC (2  » JTYPE) * JAC 
CONTINUE 


QUA1670 

QUA166«» 

QUA169L 

QUA17J0 


COMPUTE  TIMES  OF  FLIGHT  AND  ARRIVALS  IN  MINUTES.  IF  OISTANCc.  IS  QUA1710 


OUT  OF  RANGE,  MAKE  FLIGHT  TIME  VERY  LARGE.  QUA1720 

K=3  QUA173C 

DO  520  KSU8-1 ,  NSU8S  QUA17<*« 

01 ST T *01 ST  CTGTLAT (I) , TGTLNG(I) ,  SJ3LAT (KSUB) , SU8LNG (KSU6) )  QUA1750 

MISTYP*MTYPE(KSU8)  QUA176. 

R£LH*RELNL (MISTYP)*RELMF (MISTYP) *RELMWH (MISTYP)  QUA1776 

IF  (OISTT.LT. RNGMIN  CMISTYP ) . OR. OISTT.GT .RNGMAX (MISTYP) )  GO  TO  260  QUA1760 

TFLT*ALAG(OISTT,FMRNG(l, MISTYP), FMTIM£(1, MISTYP), MPROF (MISTYP))  QUA179u 

GO  TO  290  QUAldflu 

TFLT=VERYHI  QUA1810 

PRINT  1U0*  I, KSUB, OISTT, MISTYP, TFLT  QUA162o 

CALL  PAGE  (2)  QUA183L 

NMIS=NMPS(KSU8)  QUAldLc 

DO  520  KSAL=1 , NMIS  QUA1650 

K=K+1  QUA166L 

TOAT=TFLT*(KSAL-l)*DELTM(MISTYP)  QUA1676 

IF  (TOAT.LT.VERYHI)  GO  TO  310  QUA186c 

00  300  JTYPE* 1,NTYPES  UUA169L 

SURV (I,K,JTYPE)*1.  QUA190J 

GO  TO  520  QUA1910 

RF:i*0.  QUA192C 

RFCL=9999.  QUA193* 

COMPUTE  RANGE  OF  FIRST  AIRCRAFT  AND  LAST  IF  PK  SWITCH  INDICATES  QUA194U 

ANNULAR  PK  COMPUTATION  MAY  STILL  3E  NECESSARY,  (TOAT .LE.CPKT IM)  QUA1950 

00  320  JTYPE* 1 ,NTYPES  QUAl96t 

JAC*JFLAC(1, JTYPE)  QUA1970 

IF  (JAC.EQ.O)  GO  TO  320  QUh196u 

RTOA*TOAT-BRT (JAC)  QUA1990 

RFC*PROFLU  (RTOA.FOTIME  (1,  JTYPE ),  FORNG  (1,  JTYPE )  ,NPROF  (JTYPE ) )  -OTCENQUAEuJu 
1 T (I )  QUA2010 

IF  (RFS.GT.RFCl)  RFC1*RFC  QUA202i. 

COMPUTE  ONLY  RAOIUS  OF  FIRST  AIRCRAFT  IF  SWITCH  FOR  CIRCULAR  PK  QUA2030 

COMPUTATION  IS  SET.  QUA2kH. 


QUA160  u 
QUAlSlu 
QUA1620 
QUA163L 
QUAldLb 
QUA165U 
QUA186L 
QUA1876 
QUA1 86c 
QUA189L 
QUA190  j 
QUA1910 
QUA192C 
QUA193* 


QUA1961 
QUA1970 
QUm198 j 
QUA1990 
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IF  (TOAT.GE.CPKTIM)  GO  TO  320 
JAC=JFLAC(2, JTYPE) 

RT3A=TOAT-8RT  (JAC  » 

RFC=PROFLU(RTOA,FOTIME(l,  JTYPE)  .FORMS (1 , JTYPE ) »NPROF  (JTYPE))' 
1T(I) 

IF  (RFC.LT.RFCL>  RFCL=RFC 
CONTINUE 

IF  (RFCL.GE.RFC1)  RFCL=XFC 1-. 01 
IF  (RFCL.LE.fi.)  RFCL=0. 

IF  (KSAL.NE.l )  40  TO  330 
PRINT  1123.  K.I.kFCI 
CALL  PAGE  (1) 

RFC1SQ=RFC1*RFC1 

RFCLSQ=RFCL*RFCL 

ISJM=0 

IF  (TOAT.GE.CPKTIM)  GO  TO  400 

COMPUTE  LARGEST  LETHAL  RADIUS  FOR  CENTERED  WEAPON. 

CF.LRMX-C  < 

03  340  JTYPt=l»NT YPES 
CELRsSQRT(QAR£AL( 1 , JTYPE,  MIST YP) /PI) 

IF  (CELR.GT .CELRMX)  CELRMX*C£LR 
IF  (RFC1.GT. CELRMX)  GO  TO  300 
IF  (RFC1.GT .3. )  GO  TO  360 
OO  350  JTYPE=1 ,NT YPES 
SURVCI,K,JTYP£)=1.-RELM 
GO  TO  520 

00  370  JTYPE=1,NTYPES 

PK=  (QAREALd,  JTYPE. MISTYP) -PI*RFCLSQ>/  (PI*  (RFC1SQ-RFCLSQ) ) 

IF  (PK.GT.l.)  PK=1. 

IF(PK.LT ftO . )  PK=Q. 

SURV(I,K,JTYPE)=1.-PK*RELM 
GO  TO  520 

COMPUTE  FARTHEST  REACH  OF  LETHAL  REGION  FOR  WEAPON  PLACED  AT 
RFC1/SQRT (2 )  TO  SEE  IF  IT  PROTRUDES  BEYOND  RFCl. 

RLMX=0. 

00  390  JTYPE=1,NTYPES 

RL=AL AG(RFC1/1. 414213562. QPTS,QRLMX(1, JTYPE. MISTYP),  30) 

IF  (RL.GT.RLMX)  RLMX=RL 

IF  (RFC  1/1, 41 421 3562 +RL MX .GT. RFCl)  GO  TO  5U 

ISUM=  ISUM-f  1 

COMPUTE  CIRCULAR  PKS. 

00  410  JTYPE=1,NTYPES 

ARE  AL  =  ALAG  (RFC  1/1. 414213562,  OPTS,  QAREALd,  JTYPt, MIST  YP),3u) 

IF  (AREAL. LT.O.)  AREAL=Q« 

PKCIR  (JTYPE)=AREAL/(PI*RFC13U) 

IF  (TOAT.GE.CPKTIM)  GO  TO  480 

COMMUTE  ANNULAR  PKS  UNTIL  A  LARGER  ONE  IS  FOUNQ. 

00  450  JTYPE=1»NT YPES 

AREAL  =  ALAG(  (RFC1  +  RFCL ) /2. , QPTS .QAREAL (1 , JTYPE .MISTYP)  ,  33 ) 

IF  (AREAL. LT.O.)  AREAL-0. 

ELR=SQRT (AREAL/PI) 


QUA2u5w 
QUA236L 
QUA2u7u 
0TCENQUA2L8u 
CUA2k9u 
UUA2l.fi  u 
QUA2ii.fi 
QUA2120 
UUA2l3w 
QUA214C 
QUA2l5u 
QUA21ofi 
QUA217 fi 
QUA2l8fi 
QJA219U 
QUA2200 
QUA22lu 
QUA222fi 
QUA2230 
QUA2240 
QJA225 w 
QJA22oi, 
QUA227L 
QUA228  0 
QUA229u 
QUA23&U 
UU A231 k 
UUA2320 
UUA233L 

QUA234U 
QUA2350 
QUA23ofi 
QU  A  2  3  7  fi 
UUA236U 
QUA2390 
UUA24jk 
UU A241 k 
UUA2h2w 
QUA2430 
UUA244k 

QUA  2  45  u 
QUA2460 
QUA247L 
QUA240 k 
QUA 2 49 fi 
UUA25 j fi 
QUA25iu 
UUA252w 
QUA253w 
QUA254C 


IF  (lLR.LT. .00011  GO  TO  430  QUA255.J 

PKAN ( JT YP£ ) -  X  AREA (ELR , (RFC1 *RFCL I  /2. » RFCL  »RFC1> / (PI* (RFClSQ-RFCLSQQUA2Sbo 


in 

QUA257  u 

GO  TO  440 

QUA2580 

•*30 

PKAN( JTYPE) =0  . 

QUA2390 

4*3 

PRINT  1130.  PKAN  ( Jf  YP£) »?KCIR( JTYPE) , K, JTYPE »KFCi» RFCL 

QUA2bu  3 

IF  (PKAN(JTVP£).cT.O.)  STOP 

QUA2bl0 

CALL  PAGE  (11 

QUA2b2o 

IF  (PKCIR(JTVPE).LE.PKAN(JTYPE))  SO  TO  <*70 

QUA263  0 

453 

CONTINUE 

UUA204- 

C 

USE  ANNULAR  PKS. 

QUA2b5J 

OO  450  JTYP£*1,NTYPES 

QUA2bou 

460 

SURY ( I  •  K. JTYPE 1*1 • -PKAN (JTYPE) *RELN 

QUA267Q 

GO  TO  520 

QUA2b8g 

470 

ISUM*I3UM*1 

QUA2b9u 

493 

OO  490  JTVPE=1 .NT VPES 

QUA2730 

PK=AMIN1U.0,PKCIR(  JTYPE) 1 

QUA2710 

493 

SURV(I,K,JTYP£)*1.-PK»R£LM 

QUA  2 72 w 

IF  (ISUN.EQ.2 . ANO. TOAT.LT . CPKT IN)  CPKT IM*TOAT 

QUA 27 30 

GO  TO  523 

QUA27<,w 

503 

OO  510  JTVP£=1 .NTVPES 

QUA2750 

QP0S*AMAX1(Q.,RFC1-RLNXI 

QUA276- 

A RE AL*ALAG (QPOS,QPTS,QAREAL (1 « JTYPE , MIST YP) ,33 ) 

QUA277u 

IF  (AREAL. LT.0.)  AR£AL=0. 

QUA278t 

513 

PKCIR (JTYPE )=AR£AL/(PI*RFC1SQ) 

QUA2790 

GO  TO  423 

QUA28UO 

520 

CONTINUE 

QUA2dlo 

533 

CONTINUE 

QU A2o2o 

OO  540  JTVPE*1,NTYPES 

QJA283Q 

CALL  PAGE  (0) 

QUA2840 

CALL  PAGE  (2) 

QUA285L 

PRINT  1140,  JTYPE 

QUA2860 

OO  540  1*1 , NTGTS 

QUA287Q 

CALL  PAGE  (-NSU8S-2) 

UUA288u 

PRINT  1150,  I 

UUA289o 

JL3=1 

QUA290O 

OO  £40  JJ=1 , NSUBS 

QUA2910 

JHI=JLO*NMPS( JJ>-1 

QUA292L 

PRINT  116C  ,  (SURV(I,J, JTYPE), J=JlO,JHI) 

QUA2930 

540 

JL0=JHI«-1 

QUA29<»u 

SUBOBJsO. 

QUA2950 

MOVES=Q 

QUA296C 

MOVEST=0 

QUA2970 

MOVE V*0 

QUA298U 

READ  1170,  CHGKIL , ITCUTl, ITCUT2 1 EPS CUT 

QUA299C 

EPS*.  1 

QUA3uoO 

PRINT  1180,  EPS 

QUA3010 

ITER=C 

QUA302u 

CALL  PAGE  (3) 

QUA3030 

C 

COMPUTE  VALUES  OF  AIRCRAFT. 

QUA304O 

OO  550  1=1, NTGTS 

QUA 30 5 0 

40 


00  55 C  JT7?e=l»NTYP£S 

VAL  ( I  <  JT  YP£ )  =  »' AL  ( I »  JTYPE)  *R£L  VAL  UTYPt) 
00  560  I=I,NTG1 J 
00  560  J  =  1 »  NHPNS 
ALOC (It J)=0  * 

IN*UT  FIRST  ALLOCATION. 

MHPN=0 

00  600  J=1 , NSUBS 
JLIM=ISUBS ( J) 

ILIM=NM!»S(J) 

IF  ( JLIM.EQ. 0 )  GO  TO  590 

00  560  JSUB=1 • JLIM 

READ  690  t  <I7GTN0<I> ,I=i,ILIM) 

00  570  1=1 t IL IM 

MH=>N=MWPN*1 

II=lTGTNO<I) 

IF  (II.EQ.O)  GO  TO  570 
AL3C(II«MH?N)  =  ALOC  (II»MHPN)*1»0 
CONTINUE 

IF  IJSUB.LT. JLIM)  MWPN=MWPN-ILIH 

CONTINUE 

GO  TO  633 

MHPN=MHPNtILIM 

CONTINUE 


QUA3j6c 
QU^*c7  u 
QUA3i.bc 
QUA3w  9w 
QUA3i.bc 
UUA311 l 
QUA3120 
QUA3l3u 
QUA314j 
QUA3156 
QUA3160 
QUA3i7 j 
QUA3l8w 
QUA  3  1.9  b 
QUA3200 
QUA32iu 
QUA322* 
QUA323v 
QUA3240 
QUA325- 
QUA 326 w 
QUA3l7 u 
QUA3260 
QUA329C 
QUA33CC 
QUA331C 
QU  A3  32  0 
QUA  3  33  L 


LOOP  ON  ALLOCATIONS  FOLLOWS.  QUA3320 

IBROUT=0  QUA 3 33 L 

CALL  TGTKIL  (NTGTS  ,NW  PNS,  NTY°tS,OBJSUM,ALOC  ,FLAMB,FLAMBI  ,  SURV,  VAL  ,  QUA33*,c 
1PR3D, VK ILL, NW ALOC ,R£L VAL, MXTGT »MXWPNS)  QUA33ai 

PRINT  1190.  OBJSUM  QUA3360 

CALL  PAGE  (2)  QUA337 u 

IF  (MOOE.EQ. 1 )  GO  TO  62C  QUA338u 

CALL  TIMTGO  (TLEFT)  QUA339C 

IF  < TLEFT «GT.  3li. )  GO  TO  630  QUA3N00 

WRITE  (8)  NWPNS.NCOL.ITER.  ITCUU, ITCJT2, MOVES, MOVEV, MO  VEStjEPS ,£PSQUA341c 
1CUT , OBHOLO, QtLOBJ.SU BO BJ.CHGK I L  QUA3N20 

WRITE  ( 6 )  ( ((SURV(I.J.K), 1=1, NTGTS) ,J=1,NWPNS> ,K=1,NTYPES)  QUA3N3C 

WRITE  (8)  <(ALOC,r,J), 1=1, NTGTS)  ,  J=1 ,  NHPNS)  QUA34*+0 

WRITE  (8)  (( VAL ( I, J), 1=1, NTGTS), J= 1 .NTYPES) , (RELVAL (I) , 1=1* NTYPES) QUA34Su 


1,  (ISUBS(I) , NMPS ( I ) ,MTYPE( I) ,1  =  1, NSUBS) 

PRINT  1230 
CALL  PAGE  (1) 

IF  (MOOE.EQ.l)  GO  TO  1C 
STDP 

OBH3L  0=0 • 

MAX  NUMBER  OF  ITERATIONS  IS  THE  PRODUCT  OF  UPPER  LIMITS  OF 
ITER1  ANO  ITER2. 

IF  (ITCUTl.EQ.O)  GO  TO  730 
DO  720  ITER1=1,ITCUT 1 
DO  70 C  ITER2=1 , ITCUT2 


QUA 3 hoc 
QUA3h7  j 
QUA3N60 
QUA3N90 
QUA35c  u 
QUA  3513 
QUA3520 
QUA353C 
QUA35fc 
QUA3550 
QUA3560 


ITER=IT£R*1 

UUA3570 

CALI  AOJLAM  (NTGTS,NSUBS,NTYP£S,NCOL,IBRQUT, MLOH, MHI, JCOL, DELTA, 

cPUUA368g 

IStAkOCtFLAMB tFLAMBI tSURVt NMALOCtlSUBSt NNPStNXf GT  ,MXHPNS) 

QUA359i 

IF  (IBRGUT.Nt.l)  GO  TO  660 

QUA36u  0 

IF  (EPS.GT.1.5*EPSCUTI  GO  TO  640 

QUA361L 

PRINT  1213,  EPSCUT 

QU  A3t>2  0 

CALL  PAGE  (2) 

QUA363b 

GO  TO  733 

UUA3O40 

640 

EPS-EPS/10. 

GUA3O50 

PRINT  1198,  EPS 

QUA3660 

CALL  PAGE  (3) 

UUA367b 

IBR3UT=0 

QUA3b9u 

IF  (IOUT.EQ.l)  GO  TO  7L0 

QUA369Q 

C 

OF.3UG  OUTPUT. 

QUA37u« 

CALL  ALOUT  ( I  TER, NT  GTS ,NSUBS, NHPNS ,AlOC , ISUBS ,NMPS ,MXT GT ) 

QUA37lt< 

CALL  PAGE  (3) 

QUA372w 

CALL  PAGE  (3) 

QUA3730 

PRINT  1220  _  . 

QUA374C 

03  650  1  =  1, NT  GTS 

QUA3750 

CALL  PAGE  (-NSU8S-2I 

QUA37ou 

PRINT  1150,  I 

QCA3770 

JL3=1 

QUA379L 

OO  650  JJ=1,NSUBS 

QUA 3 79 u 

JHI  =  JLO-fNMPS  ( JJ) -1 

QUA39VV 

PRINT  1160,  (FLAMB(I,JI ,J=JLO,JHII 

QUA3610 

653 

JL3=JHI*1 

QUA382 j 

GO  TO  700 

QUA363b 

C 

CHANGE  THE  PROOUCT  MATRIX,  VALUE  KILuEO  ON  EACH  TARGET,  ANO 

QUA384U 

C 

MULTIPLIER  MATRIX  AS  CHANGEO  BY  CHANGED  ALLOCATION. 

QUA3850 

650 

DO  670  JTYPE=1,NTYPES 

QU  A3  6a  u 

SNE G* SURV (MLOH,  JCOL.JTYPEI** (-DELTA) 

QUA3870 

SP3S*SURV(MHI,JCOL,JTYPEI**OELTA 

QUA366U 

PROD (MLOH, JTY PEI =PROD (MLOH , JTY P£ 1  *SN£G 

QUA3690 

PR30..'HI,JTYPEI=PR00(MHl,  jTYPE»*SPOS 

QUA390C 

0BJSUM=0BJSUM-VKILL(MLCH, JTYPEJ -VKILL (MHI ,JTYPE) 

QU A391o 

VKILL (MLOH, JT  YPEI  =  VAL (MLOH  » JT YPE )* (1-PROO (MLOH, JTY  Pc ) > 

QUA392u 

VKILL (MHI , JT YPEI = VAL (MHI , JTYPE ) 4 (1-PROD (MHI, JTYP£) ) 

QUA393U 

OBJ  SUM* OBJSUM+ VKILL (MLOH, JT  Y»£ )♦ VKILL (MHI ,JTYP£» 

QUA3944 

00  670  J=l, NHPNS 

QU A395u 

FLA MB I (MLOH, J, JT YP£)=FLAMBI (MLOH, J,JTYPE)*SN£G 

QUA39ou 

670 

FLAMBI ( MHI,J,JTYPE)=FLAMBI (MHI , J , JTYPE) *SPOS 

QUA397  o 

00  690  J=l, NHPNS 

QUA396. 

SUM1=0. 

QUA399U 

SUH2*0. 

QUA4t Ju 

00  690  JTVP£=1»NTYP£S 

QU/ 4010 

SUN1  =  SJMH-FLAMBI  (MLOH ,J, JTYPE) 

QUA4u2b 

690 

SUM2=SUM2+FLAMBI (MHI , J, JT YPE) 

UUA4ti3b 

F LAMB (MLOH, JI=SU Ml 

QUA4L4- 

690 

FLAHB (MHI, J  >  =  SUM2 

QUA4050 

IF  (IOJT.EQ.l)  GO  TO  710 

QUA40O0 

CALL  PAGE  (-71 

QUA407  b 

42 


PRIM T  1230  *  ITER 

PRIMT  1243,  JCOL*MLOH,MHI* DELTA 

PRINT  1190,  OBJSUM 

CONTINUE 

IF  (IOUT.NE.1)  GO  TO  7lii 
CALL  PAGE  4-51 
PRINT  1230,  ITER 
PRINT  1190,  OBJSUM 
OELOBJ= OBJSUM -OB HOLD 
0BH0L0=33JSUM 

IF  (OELOaj.Gc.CHGKIU  GO  TO  72ti 
PRINT  1230,  OELOBJ.CHGKIl ,ITCUT2 
CALL  PAGE  (2) 

GO  TO  730 
CONTINUE 

BRANCH  OUT  IF  NO  MORE  ITERATIONS  ARE  POSSIBLE. 

PRINT  1260 
CALL  PAGE  (2) 

GO  TO  733 
PRINT  1273,  EPS 
CALL  PAGE  (2) 

CALL  ALOUT  (ITER,NTGTS,NSUB5,NHPN5,AlOC,ISU8S,NMPS,MXTGT) 

CALL  KILOUT  ( NT GTS, NHPNS, NTYPtS*  3B JSJM, ALOC  *FLAMB*FL AMBI *SURtf 
1PR3D, VKILL.NHALOC.RELVAL,  MXTGT ,NXKPN3) 

PRINT  1190,  OBJSUM 
CALL  PAGE  (2) 

IF  (ISOPT.NE.l)  GO  TO  610 

POST-PROCESSING  TO  RELOCATE  AIRCRAFT. 

IF  IIVOPT.EQ. 1)  GO  TO  780 
PSUM=Q . 

DO  7 70  JTYPE=1,NTYPES 
PMIN=2. 0 
PMAX=-1. 0 
CALL  PAGE  (0) 

CALL  PAGE  <-NTGTS> 

DO  760  in.NTGTS 
PTEST=PROO<I, JTYPE) 

PRINT  1280,  I,JTYPE,PTEST 

IF  (PTEST.GE. PMIN • OR. VAL (I«JTYPE),LE.,0GQ1)  GO  TO  750 

PMIN=PTEST 

IPMIN=I 

IF  (PTEST .LE.PHAX )  GO  TO  760 

PMAX=PTEST 

IPMAX=I 

CONTINUE 

VMIN=VAL<I,'HIN,JTYPE> 

POELT=VMINMPMAX-PMIN> 

IF  C  VMIN . LT ..l.OR.PDELT.GT.VMIN)  PDELT=tfMIN 
PSUM=PSUH*  PDELT 


QUA4t,8u 
QUA4090 
QUA  4 10  0 
QUA4110 
QUA4124 
QUA4130 
QUA41hL 
QUA415u 
QUA4lbi 
QUA4l7o 
QUA  4 18 j 
UUA419L 
QUA420  0 
QUA 42 10 
QUA422u 
QUA423l 
(  \424w 

C  >23, 
L  ,2o0 
QUA427  u 
QUA428w 
QUA429u 
, VAL , QUA430  c 
QUA43lo 
QUA432C 
QUA433g 
QUA4340 
QUA435. 
QUA43bu 
QUA437- 
QUA4380 
QUA439t 
QUA 4400 
QUA441J 
QUA4420 
QUA443w 
QUA444J 
QUA4450 
QUA4460 
QUA447  u 
QUA4480 
QUA449u 
QUA4500 
QUA45lu 
QUA452  0 
QUA453G 
QUA4540 
QUA4550 
QUA4560 
QUA437  u 
QUA456u 


43 


770 


C 

C 

c 

783 


790 


800 

C 

C 

c 

810 


820 


830 

840 


VAL(IPMAX,  JTYPE)*VAL(IPMAX,JTYP£M-PQ£lT 
VALIIPMIN, JTYPE)=VMIN-P0ELT 
P3ELT  =aOELT/RELVAL (JT YPt) 

PRINT  1290,  POELT , JTYP£,IPMIN, IPMAX 
MOVEV=NO VEV  +1 
PRINT  1330,  MOVE V 
CALL  PAGE  (2) 

IF  (PSLIM.LT. .05)  GO  TO  760 
EaS=.l 

PRINT  1130 ,  EPS 
CALL  PAGE  (3) 

GO  TO  613 


HRA»-UP  INTEGERIZATION  ANO  OUTPUT. 

CALL  ALINT  (NTGTS, NSU6S, AlOC, ISUtJS, NMPS, MXTGT  ) 

PRINT  1310 
CALL  PAGE  (1) 

IF  (IVOPT.NE.2)  GO  TO  790 

CALL  VINT  (NTGTS, NTYPES , VAL ,R£LVAL ,MXTGT ) 

PRINT  1320 
CALL  PAGE  (1) 

CALL  ALOUT  ( ITER , N~GTS  ,NSUBS, NNPNS  ,ALOC ,ISUBS , NMPS ,MXTGT i 
CALL  TGTKIL  (NTGTS »  N»'°NSt  NTYPES,  QSJSUM.ALOC  t  FLAMS,  FLANS  I ,  SURV , 
1PROO, VKILL, NHALOC , RELVAL, MXTGT ,MXMPNS) 

PRINT  1190,  OBJSUM 
CALL  PAGE  (2) 

GO  TO  13 
PRINT  1332 
STOP 


QUA459 j 
QUA46G0 
QUA4610 
QUA4b20 
QUA4o3 j 
UUA4b4u 
QUA4b5u 
QUALboO 
UUA467u 
QUA468U 
QUA4693 
QUA47G0 
QUA47lu 
QUA472u 
QUA473u 
QUA474G 
QUA 4 75  G 
QUA47bG 
UUA477u 
QUA478G 
QUA479C 
QUA4d j u 
QUA461G 
VAL , UUA462G 
QUA4830 
UUA404C 
UU A465w 
QUA48bG 
QUA4870 
QUA468L 
QUA489u 


POST-PROCESSING  TO  RE-LOCATE  SUBS. 

IF  (OBJSUM. GE.SUBOBJ)  GO  TO  830 

MOVES=MOVES*l 

IF  (MOVES. LT.l)  GO  TO  840 

ISOPTn 

GO  TO  740 

MOVES=3 

S JBOB J=0 BJSUM 

IF  (IOUT.EQ.l)  GO  TO  860 

CALL  PAGE  (0> 

CALL  PAGE  (3) 

PRINT  1220 
OO  850  1=1, NTGTS 
CALL  PAGE  (-NSUBS-2) 

PRINT  1150,  I 
JL3=1 

OO  850  JJ=1,NSUBS 

JHI=JLO+NMPS( JJI-1 

PRINT  1160,  (FLAMBd,  J),J=JLO,  JHIJ 


QUA49UU 
QUA4910 
QUA4920 
QUA493  0 
QUA494G 
QUA4950 
QUA4960 
QUA497w 
QUA498u 
QUA4990 
QUA50u  u 
QUA5o 1 j 
QU  A  5  j  2  u 
QUA5u3u 
QUA5040 
QUA  5u  6  u 
QUA536w 
QUA5w7 u 
QUA5080 
QUA5l>9u 


853 

850 


870 

893 


C 

830 

933 

910 

920 

930 

940 

950 

960 

973 

983 

993 

1300 


Idle 


1020 

1030 

1040 

1050 

1060 


107C 

1381 

1090 


JL3=JHI+i  UUA5160 
IB3JT  =0  QUA511G 
CALL  SUB AD J  (  NTGT S , NSUBS, MTYPt S ,EPS, I  BOUT ,ALQC,FLAMB, ISUBS ,NMJ>S,MTQUA5l20 


1YPE.MXTGT) 

IF  (I ROUT o £Q • 1 )  GO  TO  623 
MOVE$T=MOV£ST*l 
PRINT  1340 »  MOVEST 
CALL  PAGE  (1) 

IF  (IOUT.EQ.l)  GO  TO  873 

CALL  ALOUT  (3 ,NTGTS .NSUBS , NHPNS . ALOC , ISUBS ,NMPS,MXTGT  ) 
NCOL=C 

OO  680  1=1, NSUBS 

IF  ( ISUBS ( I ) . GT. 3 )  NCOL=NGOL*NMPS ( I > 

CALL  PAGE  (-NSU0S-2) 

PRINT  1350  ,  (I,ISU6S(U,MTYP£(I)  ,1  =  1,  NSUBS) 

E?3  =  .  1 

PRINT  1180,  EPS 
CALL  PAGE  (3) 

GO  TO  613 


QUA513L 
QUA5143 
QUA5150 
QUA5loe 
QUA517 w 
QUA5180 
QUA5190 
QUA52U0 
QUA52xL 
QUA5220 
QUA523u 
QUA  52*+ 0 
QUA5253 
UUA5260 
QU A5 27 u 
QUA526  0 
QUA5290 

FORMAT  (1415)  QUA5303 

FORMAT  (6H  CASE  ,  15 ,10X,5HMODE  ,15,13 X ,5HDAT£  ,AlC ,ldX,5HTIM£  ,AluQUA531u 
1)  QUA5320 

FORMAT  <17H  N£H  PROBLEM  KITH, 15, 3H  T ARGET S, , 15 ,15H  SUB  LOCATIONS, ,QUA533u 
115, 23H  TYPES  OF  AIRCRAFT,  ANU,I5,19H  TYPES  OF  MISSILES.)  UUA534u 

FORMAT  (26H  RESTART  INFORMATION  READ.)  QUA535u 

FORMAT  (3F1C.4,I5,5X,3F1Q.4/(7F13.4) )  QUA53ofl 

FORMAT  (7011)  QUA5373 

FORMAT  (3F10.4.I5)  QUA53B3 

FORMAT  (7F10.4)  QUA539u 

FORMAT  (/27H  TARGET  LOCATIONS  (DEGREES) , 3X,7HRUNKAYS,2X,6MCLNTRGIOQUA5*+0 0 
1,2X58HAIRCRAFT/39X,6HDISTANCE,6X,15HTYPE  ANO  NUMBER)  QUA5411 

FORMAT  (/I7,2Fl0.4,IlJ,Fld.t,Ild,Fli.4/(47X,I13,Fll.4) )  QUA5423 

FORMAT  (32X.25HTAKE-0FF  SEQUENCE  BY  TYPE, 5X, 3uI2/ (62X, 3312) )  QUA543u 

FORMAT  (/2X,8HAIRCRAFT  ,2X,  8HREL  AT  I VE  ,  5X,  5HBRAKE,  /6X,<+HT  YP£  ,5  X,  5HV  A  QUA  5  44  0 
1LUE  ,3X,7HR£L£ASE,7X,3HPSI,7X,3HCAL,/  (I1C  ,  3Fid  .  4, 1 13 ) )  QUA5*+5u 

FORMAT  (/28H  AIRCRAFT  TAKE-OFF  INTERVALS/8X,7HRUNHAYS,5X,5HTYPtl,5QUA54b3 
1X,5HTY?E2,3X,7HMINUTES/(I15,2I10,F13.4))  QUA5473 

FORMAT  (2F1Q. 4,315)  QUA548Q 

FORMAT  (/2X.23HSUB  LOCATIONS  ( DEGREES) ,6X,4HSUBS,3X,13HMISSILES  ANQUA549u 
ID  , 4HTYPE/(I5,2F10.4, IlO, 111,18) >  QUA550e 

FORMAT  (/23M  NUMBER  OF  SUBS  OF  TYPE, 15, 2H  =,I5)  QUA55U 

FORMAT  (I5,5X,6F10,4/  (LF10 .4) )  QUA5520 

FORMAT  ( 73X, 7HMISSILE, 4X,6HLAUNCM, 8 X.13HRELI ABILITIES, 16X,3HMIN,7XQUA553e 
1 ,3HM AX,  5X/6X,4HTYPE,2X,8HINTERVAu,5X,bHLAUNCH,2X,6HFLIGHT,lX,7HWARQUA55*+e 
2  HE  AD  ,  3X  ,  2  (  5X,  5HRANGE)  ,5X,  5HYI  ELD/ (II J  ,  Fifl  .4,  3X,3F8 ,4,3X  ,3Fu  .  G ) )  QUA555 v 
FORMAT  (/  13H  MISSILE  TYPE  ,  UX ,  4HTIME.5X  ,  5HRANGt/1 13, 5X  ,2F1 0  .  4/  ( 18XQUA55oO 
1.2F10.4))  QUA557  3 

FORMAT  (16H  FOR  DISTANCE  OF,F6.2,30H  NM  TO  CENTROIQ  FROM  START  OF  QUA558u 
1  ,13HT AKt-OFF  ROLL)  QUA559u 

FORMAT  (714H  AIRCRAFT  TYPE,I5,20r(  VERSUS  MISSILE  T YPE,  15// (1 9H  WH£QUA5t>jo 
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110b 

1110 

11ZC 

1130 


114C 

1150 

1160 

1170 

1160 

1190 

1200 

1210 

122w 

1230 

1240 

1250 

126C 

1270 

12SC 

1290 

1300 

1310 

1320 

1330 

1340 

1350 


IN  OETONATION  IS,F7.2,32H  Nh  FROM  CENTROIO,  LETHAL  AREA  =,F6.2,22H  QUA&blu 
2 SQUARE  NM  ANO  EXTENOS.Fb. 2 ,26H  NH  FARTHER  FROM  CENTROIO.))  UUA5b2b 

FORMAT  </7H  T ARGET , 15 ,2CH  BRAKE  RELEASE  TIM£S/<16H  AIRCRAFT  TYPE  =QUAbb3o 
1 ,15 « 1 nH  STARTS  AT.F7.2.9H  MINUTES.))  QUA 5 oh 0 

FORMAT  (/19H  DISTANCE  TO  TARGET, I4.13H  FROM  SUB  LOCATION, In, 3H  IS,QUApo5u 
IF  10 . 2, 30  H  NM.  FLIGHT  TIME  (MISSILE  TYPt,I3,3H)  -,£lo.6,5H  MifJ.)  QUA566u 
FORMAT  (7H  HE APON,  15, 16H  ARRIVES  ON  TARGET,I5 ,12H  WHEN  FIRST  ,  1  i.HAQUA5b7„ 
1IR3RAFT  IS,F10.2,32H  NAUTICAL  MILES  3EYONO  CENTROIO.)  QUA5660 

FORMAT  ( 13H  ANNULUS  PK  =,F7.4,15H,  CIRCULAR  PK  =,F7.h,9H,  WtAPOM , QUA5b90 
115, 16K  VS.  AIRCRAFT  TYP£,I5,20H.  ANNULAR  RAOII  ARE,F1« .h.hH  ANO,FQUA*7uu 

QUA57ll 

(36H  SURVIVABILITY  MATRIX,  AIRCRAFT  TYPE, 15//)  QUA 5 720 

QUA5730 


210.4) 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


</7H  TARGET, 15) 

(1X.16F7.4) 

(F10.4,2I5,F10.4) 


QUA574o 

QUA575v 


(/46H  LAGRANGE  MULTIPLIERS  MUST  UIFFER  BY  AT  LEAST  .F13.10 ,QUA57b0 


120H  TO  CAUSE  ITERATION./)  QUA5770 

FORMAT  (/24H  EXPECTED  VALUE  KILLEO  =,Fl0.4>  QUA 5 76 w 

FORMAT  (33H  RESTART  INFORMATION  WRITTEN  OUT.)  QUA579w 

</48H  MULTIPLIER  MATRIX  CUNVERGEO  WITHIN  TOLERANCE  OF , F13. 1QUA560 0 

QUA561L 

(/18H  MULTIPLIER  MATRIX//)  QUA582L 

(//17H  ITERATION  NUMBER, HO)  QUA5630 


FORMAT 

10) 

FORMAT 

FORMAT 

FORMAT 


(/18H  OELTA  N  IN  COLUMN, In, 9H  FROM  R0W,I4,7H  TO  R0W,1h,3H  IQUA5840 


FORMAT 

FORMAT 


1S.F10.3)  QUA565L 

FORMAT  (/21H  KILL  CHANGEO  BY  ONLY ,F7 .4,11H  (LtSS  THAN,F7.h,9H)  IN  QUA586C 
1PAST, 15 , 19H  ITERATIONS.  QUIT.)  QUA5870 

FORMAT  </42H  ITERATION  CUT-OFF  LIMIT  HAS  BEEN  REACHED.)  QUA5860 

(/24H  CURRENT  OELTA  LAMB04  IS.F13.lb)  QUA5690 

I33M  SURVIVABILITY  PRODUCT  FOR  TARGET, 15 ,15M,  AIRCRAFT  TYPEQUA590* 
1.I5.2H  =,F1G.4>  QUA591L 

FORMAT  (1X,F10.4,17H  AIRCRAFT  OF  TYPE,I5,18H  MOVEO  FROM  T ARGtT ,15 , QU A592C 
11QH  TO  TARGET, 15)  QUA593L 

(27H  THIS  IS  VALUE  SHIFT  NUMBER, 15)  QUA59h„ 

(23H  ALLOCATION  INTEGERIZEO)  UUA596b 

(2CH  BEOOOHN  INTEGERIZEO)  QUASSou 

( ///4H  EOJ//)  QUA5970 

(20H  THIS  IS  MOVE  NUMBER, 15 , 1 )H  OF  A  SUB.)  QUA598w 

</l7H  SUB  POINT  NUMBER, 5X.14HNUMBER  OF  SUBS ,5X, BHSUB  TYPE/ (QUA599L 

QUA6uU  u 
QUA6Q1Q- 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

1113,119,117)) 

ENO 

SU3RDUT INE  ALOUT  (ITER.NTGTS.NSUJS.NWPNS, ALOC.ISUBS.NMPS.MXTGT)  AlO  1„ 

OIMENSION  ALOC (MXTGT , 1 ) ,  ISUBS(l),  NMPS(l)  AlO  2b 

CALL  PAGE  (0)  ALG  3u 

CALL  PAGE  (2)  ALO  40 

PRINT  43,  ITER  ALO 

OO  13  1=1 ,NTGTS  ALO  bb 

CALL  PAGE  (-3)  AlO  7u 

PRINT  50,  I  ALO  80 

J=3  ALO  9L 

DO  10  ISUB=1 , NSUBS  ALO  l*u 
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ISLl M=NMPS (ISUB) 

00  13  ISALV0=1,ISLIM 
J=J+1 

AL0CN=AL0C (If J) 

IF  (ALOCN.LT. .0031)  GO  TO  13 

PRINT  GO i  ALOCN.ISUBS(ISUB) ,ISU3,ISALV0,J 

CALL  PAGE  (1) 

CONTINUE 

MH»i(*0 

00  35  1-1 1 i(SU BS 
CALL  PAGE  (-3) 

PRINT  73 t  I 
JSLIM=NMPS(I) 

I F ( ISUBS (I).NE.C)GO  TO  15 

MWPN=MWPN> JSLIM 

GO  TO  35 

00  33  J-l * JSLIH 

MW3N=MWPN*1 

00  20  K=l, NTGTS 

ALOCN=ALOC (Kt  MWPN) 

IF  (ALOCN.LT. .0001)  GO  TO  23 
PRINT  SO i  ALOCNtJ.K 
CALL  PiGt  (1) 

CONTJNJE 
CONTINUE 
CONT.’N  JE 
RETURN 

FORMAT  (12 H  ALLOCATION. ,5X .16HITERATIQN  NUMBER .113 //) 

FORMAT  (/7H  TARGET, 15)  _ 

FORMAT  (3X.F9.4,14H  MISSILES  FROM.I4.21H  SUBS  AT  SUB  LOCATION, In,  I 
1H,  SALVO, 14, 2X,7H( WEAPON, 15, 2H) .) 

FORMAT  (/13H  SUB  LOCATION, 15) 

FORMAT  (3X,F9.4,2QH  MISSILES  FROM  SALVO, I4,1GH  TO  TARGET, 14) 

END 

SUBROUTINE  ALINT  (NTGTS ,NSU3S , ALOC , ISUBS . NMPS ,MXTGT) 

DIMENSION  ALOC  (MXTGT.l),  ISUBS(l),  NMPS(i),  ALHQLO(35) 

INTLGERIZING  THE  ALLOCATION  MATRIX,  COLUMN  BY  COLUMN. 

JHPN=0 

00  SO  J  =  l» NSUBS 
MLIM=NMPS(J) 

IF  (ISUBS (J ) • NE.O )  GO  TO  10 

JWSN=JWPN*MLIM 

GO  TO  SO 

00  70  M=1 »MLIM 

JWPN= JKPN+1 

00  20  1=1, NTGTS 

ALH0LD(I)=J.  _ 

SUMH=0. 

DO  30  1=1, NTGTS 
SUNH=SUMW«-ALOC(I, JWPN) 


•********« 


V 


41 

53 

6) 

70 

63 

13 

23 

33 

43 

53 

63 


CONTINUE 
NMSLS=SUMHt. 01 
IF  (NHSLS.EQ.O)  GO  TO  7b 
00  50  JSUB=1 ,  NHSLS 
H3L0=0. 

00  40  1=1, NTGTS 
TEST=ALOC(I, JWPN) 

IF  (TEST.LE.HOLO)  GO  TO  43 

HOLO=TEST 

IHAX=I 

CONTINUE 

ALHOLO (I  MAX )=ALH0L0(IMAX)+1. 

Al33(IMAX, JWPN)=ALOC(IHAX, JHPN) -1. 

IF  (ALOC(I MAX, JHPN) .  LT .  0 ., )  ALOC ( IM AX ,JWPN ) =0, 

CONTINUE 

00  60  1=1, NTGTS 

AL3C(I,JHPN)=ALH0L0(I) 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  VINT  (NTGTS, NT YPES . VAL , RELVAL, MXTGT) 
DIMENSION  VAL (HXT  GT ,1 )  ,  RELVAL  (1),  VHOLO(35) 

03  60  JTVP£=1  iNTVPES 
RV=RELVAL( JTVPE) 

00  10  1=1, NTGTS 
VH3L0  (I)=<). 

SUHVsOe 

03  20  1*1, NTGTS 
SUMV*SUMV+VAL (I, JTvr£)/RV 
NVAL*SJMV+.fll 
00  40  IVAL  = 1 , NVAL 
H3L0=C. 

00  30  1=1, NTGTS 
te:t^val(i,jtype) 

IF  (TEST. LE. HOLD)  GO  TO  33 

H3L0=TEST 

IHA  X=I 

CONTINUE 

VHOLO  UMAX)  =  VHOLD  ( IMA X)  ♦RV 

VAL (I  MAX, JTYPE>= VAL (IMAX, JTYPE)-RV 

IF  (VAL(IMAX,JTVPE).LT.0.)  VAL (IMAX, JTYPE)=Q. 

CONTINUE 

00  50  1=1, NTGTS 

VAL (I » JT  YPE) = VHOLQ ( I ) 

CONTINUE 

RETURN 

END 


ALI  170 
ALI  16b 
ALI  19b 
ALI  2w u 
ALI  21L 
ALI  22b 
AlI  23t 
Al I  2hC 
ALI  250 
ALI  260 
ALI  27 b 
ALI  26u 
ALI  29b 
ALI  330 
ALI  31b 
ALI  320 
Abl  63b 
ALI  340 
ALI  350 
AlI  360 
ALI  370- 
VIN  10 
VIN  20 
VIN  30 
VIN  40 
VIN  50 
VIN  6b 
VIN  70 
VIN  60 
VIN  90 
VIN  ilii) 
VIN  111) 
VIN  123 
VIN  130 
VIN  140 
VIN  15b 
VIN  163 
VIN  170 
VIN  16v 
VIN  190 
VIN  230 
VIN  210 
VIN  220 
VIN  230 
VIN  240 
VIN  250 
VIN  260 
VIN  270- 


SUBROUTINE  TGTKIL  (NTGTS, NHPNS , NT YPES, OBJ SUM, ALOC ,FLAHB,FlAHBI ,SURTKL  10 


IV, VAL, PROO.VKILL.NHALOC, RELVAL, MXTGT, MXWPNS)  TKL  20 

DIMENSION  ALOC(MXTGT,l),  FLAMB  (MXTGT ,1) ,  SURV  (MXTGT, MXHPNS, 1) ,  FLATKL  30 


48 


c 

c 


11 


20 

C 

c 


31 


41 

50 

C 

C 


63 


70 


1H8I (MXTGT, MXHPNS.l)  ,  VAL  (MXTGT  .1 )  ,  P  ROO (MXTGT  » 1 )  » 

VKILL (MXTGT, 1) , 

TKL 

4b 

2NHALOC ( 1)«  RELVAL(l),  SUMAC(5>,  SUMACK(5) 

TKL 

9L 

CONFUTE  FROH  SCRATCH,  THt  PRODUCTS  OF  EACH  TARGlTFS  SURVI V  ABILITIcTK1. 

bO 

AND  VALUE.  COUNT  HELPONS  ALLOCATED  (BY  ROUNDING 

OFF). 

TKl 

00  20  I=1,NTGTS 

TKl 

dt 

NHALOC(I>=0. 

TKl 

30 

00  10  JT YPE=1 ,NTYP£S 

TKL 

1  b  b 

PR0D(I, JTYPE1=1.0 

TKL 

lib 

00  20  J=  1 , NHPNS 

TKL 

I2w 

ALOCN  =  ALOC (I,  J) 

TKL 

130 

IPART=ALOCNt. 5 

TKL 

l**u 

NHALOC(I)=NHALOC(I )*IPART 

_ 

TKL 

lib 

00  20  JTYP£=1 ,NTYP£S 

TKL 

lo  b 

S JRVN=SURV (I«J, JTYPE) 

TKL 

170 

PROO(I,JTYP£)=PROD(I,JTYPE)*SURVN**AlOCN 

TKL 

18b 

COMPUTE  FROH  SCRATCH,  THE  VALUE  KILLED  ON  EACH  TARGET  AND  The 

TKL 

I3w 

MULTIPLIER  MATRIX. 

TKL 

2b  b 

OB JSUM= 0 • 

TKL 

21b 

00  50  1=1 , NTGTS 

TKL 

220 

00  30  JTYPE=1, NTYPES 

TKL 

23b 

VKILL (I, JTYPE )=VAL (I, JTYPE)* (l-PROD (I, JTYPE)) 

TKL 

2tb 

OBJSUM=QBJSUM+VKlLL (I,JTYP£) 

TKL 

25b 

00  50  J=l, NHPNS 

TKL 

260 

SUM=0. 

.TKL 

27b 

00  40  JTYP£=1,NTYP£S 

TKL 

28u 

AOOENO=-PROD(I,JTYPE)*ALOG(SURV(I,  J,  JTYPE )  )*  VAi.  (I 

, JTYPE) 

TKL 

230 

FLAM B I (I,J,JTYP£) = A 00 END 

TKL 

33b 

SJM=SUM*AOO£NO 

TKL 

b  .  b 

FLAM8(I , J) =SUM 

TKL 

32  L 

TKL 

330 

ENTRY  KILOUT 

TKL 

340 

TKL 

35b 

DO  60  JTYP£=1 .NTYPES 

TKL 

3bb 

SUMAC(JTYP£»=0. 

TKL 

37b 

SUMAC K( JTYPE) =0 • 

TKL 

380 

CALL  PAGE  (0) 

TKL 

39u 

CALL  PAGE  (3) 

TKL 

40  b 

PRINT  80 

TKL 

bib 

00  70  1=1, NTGTS 

TKL 

420 

CALL  PAGE  (-NTYPES-1) 

TKL 

43b 

PRINT  90,  I, NWALOC (I ) 

TKL 

44ti 

00  70  JTYPE=1,NTYP£S 

TKL 

H9  J 

V=VALCI, JTYPE) 

TKL 

460 

VK=VKILL (I , JT YP£ ) 

TKL 

47b 

RV=RELVAL(JTYP£1 

TKL 

48b 

VN=  V/RV 

TKl 

43b 

VKN= VK/RV 

TKL 

500 

PRINT  103,  JTYPE, V,VK,VN,VKN 

_ 

TKL 

51  b 

SUMAC (JTYPE)=SUMAC (JTYP£)*VN 

TKl 

52u 

SUMACM  JTYPE  >=SUMACK(  JTYPE  )*VKN 

tkl 

530 

PRINT  110,  (JTYPE, SUMAC (JTYPE), SUMAC* (JTYPE) ,JTYPE=1, NTYPES) 

TKL 

94b 

\ 


49 


CALL  PA 6c  (NTYPES+l) 

TKL 

55u 

RETURN 

TKl 

Sou 

c 

TKL 

57  Q 

so 

FORMAT  <10X,6HTARG£T,9X,7HH£APONS.8X,dHAIRCRAFT,2<llX,5HTOTAL.iGX 

.TKL 

58u 

16HKILL£D)/1GX  .6HNUMBER.7X.9HALLOCATE  D.12X 

,4HTYP£.2(ilX,5HVALUt> ,2 (TKL 

590 

28X*  6HAIR CRAFT ) /) 

TKL 

6y  u 

93 

FORMAT  (2116) 

TKL 

ol  0 

100 

FORMAT  (32X.I16, 4F16.4) 

TKL 

62L 

110 

FORMAT  (7H  70 TALS/ ( 32X , 116 , 32X , 2F 16. +) ) 

TKL 

o30 

END 

TKL 

640 

SUBPOUTINE  AQJLAM  (NT6TS, NSU3S ,NT YPE3 ,NCOL, I8R0UT,  LOHPT ,MAXPT , JCOLAOL 

10 

1  *Oc f  A?  EPS  .AL0G.FLAM8.FLAMBI.SURV.NHAL0C. 

ISUBSsNMPSsMXTSTtMXHPNS) 

AOL 

2u 

DIMENSION  ALO C (MXT6T  *  1 ) »  FLAMB (MXT6T .1) t 

SURV (MXTGT.MXHPNSsI) •  NHAADL 

3w 

1LDC ( 1 ) t  ISUBS ( 1 ) «  NMPS(l),  FL AM3I < MXT6T , MXWPNS , 1> 

AOL 

4u 

OATA  J.ISUB, ISALVO/O.l.ft/ 

AOL 

>0 

00  60  JCNT-ls  NCOL 

AOL 

66 

J=J*1 

AOL 

7u 

ISAL VO=ISALVO+l 

AOL 

da 

IF  <ISALVO<LE<NMPS (ISUB))  60  TO  20 

AOL 

90 

ISAL VCS1 

AOL 

lau 

10 

ISUB= ISUB+l 

AOL 

llu 

IF  (ISU8.LE.NSUBS)  60  TO  20 

AOL 

120 

I3UB- 1 

AOL 

13  0 

J=1 

AOL 

14a 

23 

IF  < ISUBS (ISUB) . NE • 0 )  GO  TO  30 

AOL 

150 

J-J^NMPS (ISUB) 

AOL 

160 

60  TO  10 

AOL 

170 

30 

JC0Ls J 

AOL 

18b 

FMAX=-1. 

AOL 

190 

MAXPT*1 

AOL 

2u  0 

FMIN=9999. 

AOL 

210 

00  50  1=1 , NT6TS 

AOL 

22a 

FTESTL=FLAMB( I »J) 

ADl 

23u 

IF  (FTESTL.LE.FNAX)  GO  TO  43 

AOL 

240 

FMAXsFTcSTL 

AOL 

250 

MAXPT*I 

AOL 

260 

4] 

IF  <ALOC (I.J) <LT<<0001<OR.FTESTL.GE<FMIN) 

GO  TO  50 

AOL 

27  u 

FMIN=FTESTL 

AOL 

28w 

LOHPT  *1 

AOL 

290 

53 

CONTINUE 

AOL 

33  a 

IF  (FMIN.LT.FMAX-EPS)  GO  TO  70 

AOL 

3lu 

63 

CONTINUE 

AOL 

320 

C 

NO  EXCHANGES  OF  ALLOCATION  POSSIBLE. 

AOL 

330 

IBROUT=l 

AOL 

3au 

RETURN 

AOL 

35u 

C 

COMPUTE  INCREMENT  IN  ALLOCATION. 

AOL 

360 

73 

ALO H- ALOC ( LOHPT. JCOL) 

AOL 

370 

IF  (NTYPES.NE.l)  60  TO  10a 

AOL 

38u 

IF  IFMIN/FMAX.LT..0001)  60  TO  80 

AOL 

39u 

DELTA=ALOG<FMIN/FMAX)/ALOG<SURV<LOHPT, JCOL,l)*SURV<MAXPr,J3QL,l>> 

AOL 

HJ  L 

60  TO  90 

AOL 

410 

50 


I 

i 

I 


► 


so 

D£lTA*?P99. 

ADL 

42b 

90 

IF  (0'’LTA.GT.AL0W)  DEL  TA- ALOW 

aol 

43i< 

GO  TO  110 

ADL 

44  b 

133 

DEL  T  A=XN2WT (0 ., ALOW, EPS, LOWPT , HAXPT, JCOL , NTYPES, SURV .FlAHBI , HXTGT 

,  ADL 

450 

1 HXWPNS) 

ADL 

46b 

110 

AHA X= ALOC ( HAXPT  , JCOL ) 

AOL 

47  u 

I3ART 1= ANAX+ .  5 

ADL 

46  J 

AN; W* AHA X+ BELT A 

ADL 

490 

IPART =AN£W+. 5 

AOL 

3a  a 

NWALOC (HAXPT )-NWALOC (HAXPT )-IPARTl*IPART 

AOL 

51a 

ALOC ( HAXPT, JCDL)- ANEW 

ADL 

52a 

IPART Is ALOW+. 5 

AOL 

53  C 

AN;W= AlOW-DELTA 

AOL 

34b 

IPART*AN£W*«5 

AOL 

33a 

NWALOC(LOWPT)=NWALOC(LOWPT)-IPARTnIPART 

ADL 

560 

ALOC (LOWPT, JCOL) = ANEW 

AOL 

570 

RETURN 

AOL 

5  d  b 

ENO 

AOL 

39b- 

FUNCTION  XNEWT  (XHIN,XHAX ,EPS , lOWPT , HAXPT , JCOL, NTYPcS, SURV ,FLAMBI 

,  XNT 

lb 

lHXTGf , HXWPNS) 

xnt 

20 

OIHENSION  SURV  (HXTGT, HXWPNS, 1) ,  FLAHBI (HXTGT , HXWPNS, 1 » 

XNT 

3b 

DATA  XBND/230./ 

XNT 

4b 

CALL  FOFP  ( XHAX, LOWPT , HAXPT , JCOL ,M TYPES »FHAX , OIV , SURV, FLAHBI »H XT GTXNT 

5  a 

1, HXWPNS) 

XNT 

oO 

IF  (FHAX.LT. 0.0  GO  TO  60 

XNT 

7a 

1ST  — 0 

XNT 

6  b 

xnew=:;hax-div 

XNT 

9b 

13 

IF  (ABS(XNEW) .LT.XBHQJ  GO  TO  50 

XNT 

100 

IST  =  I ST  >1 

XNT 

lib 

GO  TO  (23,30,40,  1ST 

XNT 

12b 

23 

CALL  FOFP  (XHIN, LOWPT , HAXPT , JCOL  »STYP£S,DUHMY ,01 V, SURV , FLAHBI , HXT GXNT 

13u 

IT, HXWPNS) 

XNT 

14b 

XNEW^XNIN-OIV 

XNT 

15  » 

GO  TO  10 

XNT 

lOb 

33 

XHI0=(XHAX+XMIN)/2. 

XNT 

17b 

CALL  FOFP  (XMIO,  LOWPT, HAXPT,  JCOL,  NTYP£S,DUMHir  ,DIV» SURV, FLAHBI, HXTGXNT 

16b 

IT, HXWPNS) 

XNT 

19a 

XN£W=XHIO-OIV 

XNT 

20b 

GO  TO  10 

XNT 

21b 

40 

PRINT  70,  1ST 

XNT 

22u 

XN£WT=XMID 

XNT 

23a 

RETURN 

XNT 

24b 

5] 

XOLOsXHEW 

XNT 

25u 

CALL  FOFP  (XOLO, LOWPT, HAXPT, JCOL, NTYPES,DUHHV,DIV, SURV, FLAHBI, HXTGXNT 

2o0 

IT, HXWPNS) 

XNT 

27  0 

XNEW=XOLO-OIV 

XNT 

26b 

IF  (ABS (XNEW-XOLO) .GT.EPS)  GO  TO  1C 

XNT 

290 

XNEWT=XNEW 

XNT 

30  0 

RETURN 

XNT 

310 

faO 

XN£WT=XHAX 

XNT 

32b 

RETURN 

XNT 

33b 

1 
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i 


i 


i 


XNT 

34  Ci 

FORMAT  (16H  MENTON  OIVtRGED ,15 ,27M  TIMES.  XM1D  USEO  AS 

ROOT.) 

XNT 

35  » 

END 

XNT 

3bij 

SUBROUTINE  FOFP  (X , LONPT ,M AXPT , JCOL, NT YPES.SUM.DI V ,SURV , 

FlAMBI .mxtfop 

10 

lGT.MXNPNS) 

FOP 

2u 

OIMENSION  SURV  (MXTGT » MXMPNS *1 ) •  FLANdl (MXTGT .NXNPNS.l) 

FOP 

33 

SU.'  =  Q  . 

FOP 

A  u 

PRIME=Q. 

FOP 

00  10  JTYP£=1 tNTYPES 

FOP 

r>  »♦ 

FLLONsFLAMBKLONPT, JCOL.JTYPE! 

FOP 

7  3 

FlMI=FLAMBI (MAxPT, JCOL.JTYPE) 

FOP 

8u 

SLON=SURV (LONPT .JCOL.JTYPE) 

FOP 

90 

SHI  =  SURV(MAXPT,  JCOL.JTYPE) 

FOP 

HI  u 

PLON=FLLON*SLON** (-X) 

FOP 

110 

PHI=FLHI*SHI**X 

FOP 

123 

SUM=SUM*PL ON-PHI 

FOP 

13  4 

PRIME*?RINE-PL0H*AL0G(SL0N)-PHI*AL0G(SHII 

FOP 

143 

01 V= SUM/ PRIME 

_ 

FOP 

15  u 

RETURN 

FOP 

163 

ENO 

FOP 

173 

SUBROUTINE  SUBAOJ  (NTGTS.NSUBS  .MTYPES.EPS.IBQUT.ALOC.FLAMB.ISUBS. 

NSUS 

13 

IMPS, MTYPE, MXTGT) 

SUB 

20 

OIMENSION  LOHOLO(16),  MXHOL0I16),  L0TEMP(16),  MXTtHP (IB) 

,  LOH(lb) 

.SUB 

33 

1  MXH(16),  ALOC  (MXTGT,  1) ,  FLAMS  (MXTGT,  1)  .  ISUBS(I),  NMPS(l),  MI.YPE.(SUB 

43 

21) 

SUB 

53 

PIGDIF--1. 

SUB 

60 

Call  page  (0) 

SUB 

73 

DO  110  JTYPE=1,MTYPES 

SUB 

63 

H0L3LO=1.0c+300 

SUB 

93 

H0LDHI=-1. 

SUB 

100 

JN?N=0 

sue. 

113 

DO  90  Jsl.NSUZS 

SJS 

123 

NMIS=NMPS(J) 

SUB 

133 

IF  (MTYPE(J).NE.JTYPc)  GO  TO  SO 

SUB 

140 

IBRSN=1 

SUB 

15  3 

IF  (ISlBS(J).EQ.a)  I8RSN*2 

_  SUB 

loo 

SUMLO-5. 

SUB 

17  u 

SUMHI*0. 

SUB 

160 

NM=NMI3 

SUB 

193 

00  40  M*1 , NMI S 

SUB 

203 

JN*N= JNPN+1 

SUB 

21  u 

HLO=1.0E«-3QQ 

SUB 

223 

HHI=-i. 

SUB 

230 

00  30  I=1,NTGTS 

SUB 

243 

TEST=FLAM8(I, JNPN) 

SUB 

250 

IF  (TEST.LE.HHI)  GO  TO  10 

SUB 

263 

hhi=test 

SUB 

27  C 

MXTEMP(M)=I 

SUB 

280 

GO  TO  (20,30) ,  I3RSN 

SUB 

293 

IF  (TEST. GE.HLO. OR. ALOC(I .JNPN) .LT., 3301)  GO  TO  33 

SUB 

30  0 

HL3=TEST 

SUB 

313 

52 
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LOTEMP (H) =1 
33  CONTINUE 

SUMLO=3UMLO*HLO 
43  SUMHI=SUMMI*HHI 

IF  <SUMMI<LE< HOLD Ml )  GO  TO  60 

H3LDMI-SUMMI 

MAXS=J 

MAXWS- JWPN-NMIS 
00  53  M=1 <  NMIS 
5J  MXM<M)=MXT£MP (Ml 

63  IF  <SUMLO<GE<  MOLDLO)  GO  TO  90 

M0L0L0=SUML0 
LOWS3 J 

L3WWS  =  -’WPN-NMIS 
DO  73  M= 1 i NMIS 
73  LOH<M)=LOTEMP <MI 

GO  TO  90 

83  JW 5 N= JWPN»NMIS 

90  CONTINUE 

CALL  PAGE  (-3) 

PRINT  183  «  JTYPEt  MOLOLOtHQLQHX 

AV3IF=(MOLDHI-HOLOLO)/NM 

IF  <AVDIF<LE<BIGOIFI  GO  TO  110 

RIGDIF=AV0IF 

MAXSUB=MAXS 

MAXH=MAXHS 

LOHSUB-LOMS 

LQWW=LOWWS 

00  100  M-l.NM 

MX90LD(M)=MXH(M) 

130  LOHOLDt  M) =LOH (Ml 
113  CONTINUE 

IF  (aiGOIF.GE.EPS)  GO  TO  123 
IBOUT *1 
PRINT  193 
RETURN 

C  FINO  MAX  L AMBOA  IN  COLUMN  OF  WEAPON  TO  BE  AOOED. 
120  MLIM=NMPS ( MAX SUB) 

00  170  M=1.MLIM 

MAXHPN-MAXHtM 

LAMAX-MXHOLO<M) 

C  A03  A  WEAPON  IN  APPROPRIATE  SPOT. 

ALOC ( LAM AX  «  MAXWPNI =ALOC  <  LAMAX  » MAXWPN) +1 . 0 
L0WWPN=L OWW+M 
LAML OW-LOHOLO ( M) 

C  MOVE  WEAPON  FRACTIONS  UNTIL  ONt  WEAPON  MOVcO. 
ALFRAC=0. 

GO  TO  159 

130  FMIN=1.3£f 303 

03  140  1=1 • NT  GTS 
TEST=FLAMB<I,LOWWPN» 


SUB  320 
SUB  33u 
SUB  340 
SUB  35b 
SUB  36u 
SUB  37t 
SUB  380 
SUB  390 
SUB  430 
SUB  HlO 
SUB  *20 
SUB  43u 
SUB  HHil 
SUB  45b 
SUB  460 
SUB  h7 u 
SUB  48b 
SUB  *9b 
SUB  500 
SUB  51u 
SUB  520 
SUB  53b 
SUB  5*3 
SUB  550 
SUB  5  b  i 
SUB  570 
SUB  58  0 
SUB  59w 
SUB  b3  0 
SUB  blu 
SUB  b20 
SUB  63b 
SUB  643 
SUB  65u 
SUB  6b0 
SUB  670 
SUB  68b 
SUB  690 
SUB  700 
SUB  710 
SUB  72b 
SUB  73b 
SUB  743 
SUB  75u 
SUB  76b 
SUB  77u 
SUB  780 
SUB  79b 
SUB  800 
SUB  81u 
SUB  823 
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IF  (TEST.Gt.FMIN.OR.ALGClI .LOWWPN) .LT..C01) 

GO 

TO  145 

SUB 

83C 

FMIN=TEST 

SUB 

64V 

LAMLOW*! 

SUB 

856 

i4a 

CONTINJi- 

SUB 

6ou 

155 

AL= AL OC ( LA MLOW, LOWWPN) 

SUB 

670 

IF  (AL. GT . .999-ALFRAC )  GO  TO  lo3 

SUB 

865 

AL FRA C=ALF RACIAL 

SUB 

691 

AL9C(LAML0W, LOWWPN) *3. 

SUB 

93  u 

GO  TO  133 

SUB 

915 

163 

ALOC  (LA, MLOW, LOWWPN )  =ALOC  1  LA.1LO W, LOWWPN) -11,3 -ALFRAC) 

SUB 

92  v 

170 

CONTINUE 

SUB 

933 

I SUBS (MAXSUB) = ISUBS (MAX3UB ) *1 

SUB 

94  5 

lSUBS(LOWSUB)=ISU8S(L0WSUB)-l 

SUB 

95  C 

PRINT  200*  L0WSU3, MAXSUB 

SUB 

96  u 

CALL  PAGE  (1) 

SUB 

97u 

RETJRN 

SUB 

986 

C 

SUB 

990 

ISO 

FORMAT  </17H  FOR  MISSILE  TYPE.I5/28H  SUM  OF 

LOWEST  LAMBDAS 

HITJt 

, 9SUB1LU u 

1HWEAPONS  =,Fl3.4/25H  SUM  OF  HIGHEST  LAMBDAS 

S  t 

F15.4) 

SUBlolU 

193 

FORMAT  (/15H  SUBS  CONVERGEO) 

SUBlcEu 

230 

FORMAT  (24H  SUB  MOVEO  FROM  LOCATION, I5.12H 

TO 

LOCATION, 15) 

SUB1030 

END 

SU81L*»6 

FUNCTION  PROFLU  (XLU.X.Y  ,NPTS) 

PRO 

lu 

DIMENSION  X(NPTS),  Y'.NPTS) 

_ 

PRO 

2  u 

XHI=X  CNPTS) 

PRD 

35 

XL0-X (1 ) 

PRO 

•♦u 

YLO=Y(l) 

PRU 

5b 

SL3PE=(Y(NPTS)-Y(NPTS-1)I/ (XHI-X (NPT S-l > ) 

PRO 

6b 

IF  (XLU.LE.XHIcANO.XLU.GE.XLO)  GO  TO  10 

PRD 

76 

IF  CXLU.GT.XHI)  PROFLU=Y (NPTS )+SLOP£* (XLU-XHI ) 

PRU 

6. 

IF  CXLU.LT.XLO)  proflj-ylo 

PRO 

9  j 

RETURN 

PRO 

156 

10 

PROFLU=ALAGCXLU,X,Y,NPTS) 

PRO 

110 

IF  (PROFLU. Lt.YLO)  PROFLU*YL3 

PRO 

125 

RETURN 

PRO 

13 

ENO 

PRO 

i4v 

FUNCTION  XAREA  (XL, XO, AL, AH) 

XAR 

10 

DIMENSION  NUMBERJ17),  HUMBER ( S 1 

XAR 

2l 

COMMON  /LIST1/  PI 

XAR 

3t 

DATA  (NUMBER (J),J*1, 171/2121, 2221, 2321, 2331 

,3121,3212,3221 

,3222, 

33XAR 

46 

112,3321,3322,3331,3332,4221,4321,4331,5321/ 

XAR 

?0 

DATA  (HUMBER (J),J=1, 8 )/512, 611,612, 7 11,712, 

722 

,812,912/ 

XAR 

6u 

C 

XAR 

7* 

C 

XAR 

85 

C 

XAREA  SUBROUTINE  RETURNS  THE  INTiRSEOT ION  OF  THE  CIRCULAR 

LtTHAL 

XAR 

90 

C 

AREA  OF  A  WEAPON  WITH  AN  ANNULUS  FORMED  BY 

THE 

MAXIMUM  AND 

XAR 

165 

c 

MINIMUM  AIRCRAFT  FLYOUT  OISTANCES  FROM  A  CtNTROID. 

XAR 

lib 

c 

XAR 

12v 

c 

XAR 

liu 

c 

INPUT  VARIABLE  DESCRIPTION- 

XAR 

14b 

c 

XAR 

155 

54 


oooooooooooooooooooooo 


13 

20 


XL  —  THE  LETHAL  RAOIUS  OF  THE  <ILL  CIRCLt  OF  THE  WEAPON 
X3  --  THE  HORIZONTAL  DISPLACEMENT  OF  THE  POINT  OF 
DETONATION  CF  THE  WEAPON  FRON  THE  CENTROID 
AL  --  THE  HINIMUM  AIRCRAFT  FLYOJT  DISTANCt  FROM  THE  CENTROID 
AH  —  THE  MAXIMUM  AIRCRAFT  FLYOUT  DISTANCt  FROM  THE  CcNTROiO 


RESTRICT IONS- 

1.  ALL  NUMBERS  MUST  BE  REAL  AND  NON-NEGATIVE* 

2.  AH  MUST  BE  GREATER  THEN  AL. 

3.  ALL  NUMBERS  MUST  HAVE  THE  SAME  UNITS. 


*******  **************************************** ** ** ****** 


ROUTINE  DEVELOPED  BY  BILL  PEAY.  SAB.  X2295 
12  OCTOBER  1372 

********************************************************* 


PI=3. 1415926536 

XMIN=-13 JOOGOOuG.O  - 

XKAXslOOOOOCOOO.a 
IF  (AL.GE.AHI  GO  TO  20 
IF  (XL. GT . AH»  GO  TO  19C 
A=XD-XL 

IF  (A.SE.(-AH).ANO.A.Lt.(-ALII  14=2300 

IF  (A.GT. (-ALI.ANO.A.LE. (ALII  I4=3C33  _ 

IF  (A.GT.AL.ANO.A.LE.AHI  14=4003 

IF  (A.GT. AH)  14=5000 

B=XO+XL 

IF  (B.LE.AL)  13=100 
IF  (B.GT.AL.AND.B.LE.AH)  13=200 

IF  (B.GT.AH)  13=300  _ 

IF  (I4.ED.3030.AN0. I3.GE.200!  XNIN= ( XD**2+AL**2-XL**2 ) / (2 . 0*XD ) 
IF  (I3.EQ. 300. AND. 14. LE. 4303)  XMAX= ( X0**2+AH**2-XL**2) / (2. u*XD) 
IF  (XO. LE.XMIN)  12=10 
IF  (XO.GT.XHIN.ANO.XO.LE.XMAX)  12=23 
IF  (XO.GT.XMAXI  12=33 

IF  (XMIN.LE .0.0)  11*1  _ 

IF  (XM1N.GT .0.0)  11=2 

NUN=I4*I34I2+I1 

ITST=1 

00  10  J = 1 1 1 / 

IF  (NUM.GE.  NUMBER  (J)  )  ITST  =  ITST4-1 

CONTINJE  _ 


XAR  16b 
XAR  17; 
XAR  100 
XAR  19m 
XAR  2uw 
XAR  213 
XAR  220 
XAR  23b 
XAR  24 j 
XAR  25b 
XAR  2o0 
XAR  270 
XAR  200 
XAR  29b 
XAR  30b 
XAR  310 
XAR  320 
XAR  33b 
XAR  34b 
XAR  350 
XAR  300 
XAR  3 7  0 
XAR  300 
XAR  39u 
XAR  400 
XAR  41b 
XAR  42b 
XAR  *3u 
XAR  44b 
XAR  <♦?  b 
XAR  AOb 
XAR  470 
XAR  400 
XAR  <.90 
XAR  5u0 
XAR  5lu 
XAR  520 
XAR  53b 
XAR  54m 
XAR  55b 
XAR  5b0 
XAR  57m 
XAR  500 
XAR  59m 
XAR  60 0 
XAR  61b 
XAR  620 
XAR  63m 


GO  TO  (20,  30. 100  ,150. 160,  3C,  40, 113 ,5 0, 120  ,170  ,1 30, 10 0 , 1*0 ,60  ,70 , OQXAR  640 


1,90),  ITST 


XAR  65m 


XAREA=-1.0 


XAR  66m 
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RETURN 

XAR  67  o 

3C 

XAREA=Q. 3 

XAR  otto 

RETURN 

XAR  69u 

40 

XAREA=SUB02  CXL »X0 » AL *  AN) 

XAR  73k 

RETURN 

XAR  710 

53 

X ARE A =3 U 30 3  (XL.XD.AL.AH) 

XAR  720 

RETURN 

XAR  730 

60 

XAREA=PI*XL**2 

XAR  74k 

RETURN 

XAR  75u 

70 

XARtA=3J8Q5(XL,XD,AL, AH) 

XAR  76u 

RETURN 

XAR  770 

SO 

XAREA=SU306 (XL.XD.AL.AH) 

XAR  78c 

RETURN 

XAR  79k 

90 

XARt A=Q . 0 

XAR  8u  0 

RETURN 

XAR  613 

100 

XAREA=PI*(XL**2-AL**2) 

XAR  620 

RETURN 

XAR  83k 

11C 

XAR£A=SU BO  9 (XL.XD.AL.AH) 

XAR  84k 

RETURN 

XAR  853 

120 

XAREA=SUBU(XL,XO,AL,AH) 

XAR  66u 

RETURN 

XAR  87k 

130 

XAREA=SU812 (XL.XD.AL.AH) 

XAR  680 

RETURN 

XAR  69k 

140 

XAREA*SU813 (XL.XD.AL.AH) 

XAR  900 

RETURN 

XAR  91k 

150 

XAREA=SU805(XL,X0,AL,AH)-PI*AL**2 

XAR  92k 

RETURN 

XAR  930 

160 

XAREA*SU8Q6(XL,XD,AL, AH)-PI*AL**2 

XAR  940 

RETURN 

XAR  95k 

170 

XAREA*SUB16 (XL.XD.AL.AH) 

XAR  96k 

RETURN 

XAR  97k 

ISO 

XAREA=SUB17 (XL.XD.AL.AH) 

XAR  960 

RETURN 

XAR  99k 

190 

A=XO-XL 

XAKlOkk 

IF  ( A«L£« (-AH) )  14=500 

XARlciu 

IF  (A.GT. (-AH).ANO.A.LL.(-AU))  14=603 

XAR1P2G 

IF  (A.GT  .  (-AL)oAND.A.LL.(AL))  14=700 

XARU30 

IF  (A.GT.AL.ANb.A.LE.AH)  14=600 

XAR104. 

IF  (A.GT. AH)  14=900 

XARlL5k 

IF  (I4.EQ.700)  XMIN=(XD**24XL**2-AL**Z)/C2.0*XQ) 

XAK1060 

IF  (14. GE. 600. AND. 14. Lt. 800)  XMAX=(XJ**24XL**2-AH**2)/ (2.U*XD) 

XAR107k 

IF  (XMIN.LE.O. 0)  13=10 

XARlk  8k 

IF  (XHIN.GT.O.C)  13=20 

XARlk  9k 

IF  (XHAX.LE.O.C)  12=1 

XARI100 

IF  (XKAX.CT.O.O)  12=2 

XARlllk 

NUM=I447.3+I2 

XAR112L 

IT3T=1 

XAR1130 

00  200  J=1 . 6 

XAR.1140 

IF  (NUM.GE.MUMBER(J) )  ITST=ITSTU 

XARllSf. 

20  3 

CONTINUE 

X ARl 16k 

GO  TO  (210.220.230.240.250.260.273,83,90) .  ITST 

XAR117 k 
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213  XAREA=-1.Q 
RETURN 

220  XAR£A=?I*(AH**2-AL**2) 

RETURN 

230  XAREA=SJB19(XL,XD,AL,AH) 

RETURN 

240  XARcA=3U306(XL,XD,AL,AH)-PI*AL**2 
RETURN 

230  XAREA=3JB21 ( XL ,XD , AL , AH) 

RETURN 

26 0  XAREA=SUB22(XL,XD,AL ,AH) 

RETURN 

270  XAR£A=SUB23(XL,XD,AL,AH) 

RETURN 

ENO 

FUNCTION  SUB02  ( XL , XO , AL , AH) 

ALANG=(ACOS( (AL**2  +  XO**2-XL**2)/(2.0*AL*XD))  >  *2.0 
OPANG=ACOS( (AL**2+XL**2-XD**2J/(2.C*AL*XL)) 

XLANG* ( ALANG/ 2.9+ OP ANG)*2.Q 

ASEGMT* ((XL** 2)* (XLANG-SIN I XLANG)) )/2.0 

BSE GMT* ( (AL**2)* (ALANG-SIN (ALANG) )) /2.Q 

SUB02*ASEGMT-aSEGMT 

RETURN 

ENO 

FUNCTION  SUB03  (XL . XO , AL, AH) 

COMMON  /LIST1/  PI 

ALANG* (ACOS ( ( AL**2+  X0**2-XL**2 )/(2.0*AL*XD)))*2.0 
XlANG=(ACOS((XL**2+XD**2-AL**2)/(2.0-Xl*XD)))*2.U 
ASEGMT* (XL**2)* (PI- (XLANG-SIN (XL4NG) )/2.0) 

BSE GMT  * i ( AL**2)* (ALANG-SIN (ALANG) ))/2.0 

SUB03*AS£GMT-BSEGMT 

RETURN 

END 

FUNCTION  SUB!)  5  (  XL  .  XD  ,  AL.  AH) 

COMMON  /LIST 1/  PI 

AHANG* ( ACOS ( ( AH**2+XD**2-XL**2 ) / (2.0* AH*XD)) ) *2.0 
OPANG=ACOS( (AH**2+XL**2-XD**2) / ( 2. 0  * AH*XL ) ) 

XL ANG*( AHANG/2 .Q+OP ANG) *2  •  C 
ASEGMT=(XL**2>* (PI- (XLANG -SIN (XLANG) )/2.0) 

BSEGMT= ( (AH** 2) ♦ ( AHANG-SIN (AHANG) ) )/2.0 

SUB05=ASEGMT+BSEGMT 

RETURN 

END 

FUNCTION  SUB06  (XL , XO, AL, AH) 

AHANG- (ACOS((AH**2+XD**2-XL**2)/(2.3*AH*XO)))*2.0 

XLANG* ( ACOS ( ( XL**2+XD**2-AH**2 )/ (2,0*XL*XD)) ) *2. 0 

ASEGMT* ( (XL** 2)* (XLANG-SIN (XLANG)) )/2,0 

BSEGMT* ( 1AH**2 )♦ (AHANG-SIN (AHANG) ) )/2,0 

SUBG6=ASEGMThBSEGMT 

RETURN 

END 


XAR118L 
XAR119b 
XAKlt. w 
XAR121 u 
XAR122U 
XAR1230 
XAR12hE 
XARl25u 
XARlEob 
XAR127  0 
XAR128b 
XAR129L 
XAR13u  w 
XAR1310 
XAR132U- 
SU2  lu 
SU2  2  u 
SU2  3l 
SU2  Hu 
SJ2  5„ 
SU2  bu 
SU2  7u 
SUE  8b 
SU2  9L  - 
SU3  lu 
SU3  2b 
SU3  30 
SU3  Hu 
SU3  5b 
SU3  ou 
SU3  70 
SU3  8u 
SU3  9u- 
SU5  lb 
SUi  2  0 
SU5  3w 
SUb  Hb 
SUb  5  b 
SU5  oO 
SU5  7  u 
SU5  6b 
SU5  9b 
SU5  100- 
SUo  lb 
SUb  2b 
SUb  3b 
SUo  40 
SUb  5  b 
SUb  bu 
SUo  7  u 
SUb  8b- 
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FUNCTION  SUBO 9  (XL  »XD  .  AL, AH) 

COMMON  /LIST  1 /  PI 

XLANG* ( ACOS < (XL**2+XD**2-AL**2)/ (2. 3*XL*XD>> )  *2.Q 
DPANG*ACOS ( (X  L**2+AL**2-XD**2 )/(2.0*XL*AL)) 

ALANG* ( XLANG/ 2.0 ♦OPANG) *2. Q 

AS£GMT=( (AL**2)*(ALANG-SIN(ALANG) ) )/2.C 

BS-GMT=(  (XL**  2 ) ♦ ( XLANG-SIN ( XL A NG ) ) >/2.t 

SUBC9=9I* (XL**2-AL**2) ♦AStGMT- BSiGMT 

RETURN 

END 

FUNCTION  SU811  (XL t XD.AL, AH) 

ALANG* ( ACDS ((AL**2+XD**2-XL**2>/ (2. 3*AL*XD>) )*2.U 

OPANG=ACDS((AL**2+XL**2-XQ**2)/(2.0*AL*Xl)) 

XLANG=(ALANG/2.0+DPANG)*2.C 

ASEGMT=( (XL**2)* ( XL ANG-SJN (XLANG) ) )/2.G 

BSEGMT* ( (AL  #*2)* (ALANG-SIN (ALANG) ) >/2.0 

AHANG=(ACDS( (AH**2*XD**2-XL**2)/(2.0*AH*XD)))*2.Q 

DPANG*ACDS( ( A H**2+XL**2-XO**2 )/ < 2. 0*AH*XL > ) 

XLANG=  (  A  HAN  G/2.Q*OPANG)*2.C 
CSEGMT- ( (XL  **  21* (XLANG-SIN ( XLANGi ) )/2.C 
OSEGMT*  (  (Art**  2)  MAHAN  G-SIN  (AHANG)  ) ) /2.Q 
SUB1 1* A SEGMT* OSEGMT- BSEGMT -csegmt 

return 

END 

FUNCTION  SUB12  ( XL , XO, AL, AH) 

COMMON  /LIST 1/  PI 

ALAN G*( ACOS ( (AL**2+XD**2-XL**2 )/ (2,0*AL*XD) ) > *2, G 
XLANG=(AC3S((XL**2+XQ**2-AL**2)/(2.?*XL*X0))>*2.G 
ASE6MT* (XL**2)*(PI-(XLA  NG-SIN ( XLANG) )/2.Q> 

BSEGMT*  ( (AL<*2)* (ALANG-SIN (ALANG) ))/2.C 

AHANG* (ACDS ( ( AH**2+X0**2-XL**2 ) / (2.3*AH*XD> ) >*2.6 

0’ANG*AC0S(  (AH*''2  +  XL**2-X0**2)/(2.0*AH*XL> > 

XLANG* (AHANG/2.Q*OPANG) *2.0 

C St GMT* ( (XL  **2 ) * ( XLANG-SIN (XLANG) ) )/2.L 

DSEGMT* ( (AH**2)* ( AHANG-SIN (AHANG) ) ) /2.G 

SUB12=AStGMT*DSEGMT-BSEGMT-CS£GMr 

RETURN 

END 

FUNCTION  SUB13  (XL » XO , AL, AH) 

ALANG* ( ACOS <(AL**2+X0**2-XL**2)/ (2. 3*AL*XO>>> *2.0 

XLANG* ( ACOS  <(XL**2+XD**2-AL**2>/(2.0*XL*XQ)))*2.Q 

ASEGMTM (XL**2)* (XLANG-SIN (XLANG) )>/2.Q 

BSEGMT* ( (AL**2)* (ALANG-SIN (ALANG) ) ) /2.0 

AHA NG=( ACOS ( ( AH**2*XD**2-XL**2 ) / ( 2. )*AH*XD> >  > *2. 6 

XLANG* (ACDS ( ( XL**2»X0**2-AH**2 ) / < 2 . 3*XL*XQ> ) ) *2. 0 

CSEGMTM  (XL**2>*  (XLANG-SIN  (XLANG)  H/2.G 

OSEGMT* ( (AH** 2)* (AHANG-SIN (AHANG) ) )/2. 0 

SJB1 3 =CSE6MT+ OSEGMT -AStGMT-BStGMT 

RtTURN 

END 

FUNCTIDN  SUB).  6  (XL.  XD,  AL,  AH) 
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S12 

<*u 
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S13 

30 

_ S13 

40 
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S16 
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COMMON  /L'.jTl/  PI 

XLANG=(ACOS  ( ( XL**2+ XD**2- AL**2 > / (2 . 3 *XL*XD) ) ) *2.0 

OPANG=ACOS( (XL**2+AL**2-XD**2)/(2.:*XL*AL)) 

ALANG=(XLANG/2.0+OPANG)*2.G 

AS£GMT= ( (AL**2)*(ALANG-SIN(ALANG)) )  /  2.  G 

8S£GMT=< (XL**2)* (XLANG-SIN (XLANG) I? /2.G 

AHANG=(AC0S( (AH**2+X0**2-XL**2)/  (2.3*AH*XQ))  )*2.u 

OPANG-AGOS ( ( AH**2+XL**2-XD**2 )/(2.0*AH*XL)) 

XLANG=(AHANG/2.Q+OPANG)*2.G 

CS£GMT=( (XL**2»* (XLANG-SIN (XLANG) ) )/2.0 

DS£GMT= ( (AH**2 ) * (AHANG-SIN ( AHANG) )  ) /2.0 

SUBl6=3  I*(.s!L**2-AL**2)+AS£GMT*DS£GMT-aSE6MT -CStGMT 

RETURN 

END 

FUNCTION  SUB17  (XL , XD , AL , A H) 

COMMON  /LIST  1/  PI 

XLANG=(ACOS((XL**2+XD**2-AL**2)/ (2.3*XL*XD)> )*2.0 

OPANG=ACOS( (XL**2+AL**2-XO**2)/(2.8*XL*AL)) 

ALANG=(XLANG/2.0+OPANG)*2.l 

AS£GMT= ( (AL**2)* (ALANG-SIN (AL ANG >  > ) / 2 .G 

BS£GMT=( (XL**2)* (XLANG-SIN (XLANG) »  >/2.C 

AHAnG- ( ACOS ( ( AH**2  +XD**2-XL**2 )/(2.3*AH*XD)) )  *2. 0 

XLANG=(ACOS( ( XL**2*XD**2-A H**2 > / (2 . 3 *XL*XD> > )*2.3 

CSEGMT= ( (XL**2)* (XLANG-SIN (XLANG) > )/2.G 

OS£GMT= ( (AH**2)* (AHANG-SIN (AHANG) ) >/2.G 

SUBi7=ASEGMT+CSEGMT ♦DSEGHT-BScGM  T-PI *AL**2 

RETURN 

END 

FUNCTION  SUB19  (XL  ,  XD , AL, AH) 

COMHON  /LIST1/  PI 

AHANG=(ACOS((AH**2+XD**2-XL**2)/(2.3*AH*XO)))*2.G 

OPANG=AOOS( <AH**2+XL**2-XD**2)/(2.C*AH*XL>) 

XLANG=(AHANG/2.0+OPANG)*2.G 

ASF.GMT=(  (XL** 2)*  (XLANG-SIN  (XLANG) >  >/2.0 

BS£GMT=( (AH**2)* (AHANG-SIN (AHANG) ) )/2.G 

SU319=PI* ( AH**2-AL**2) - AStGMT ♦  BSE  GMT 

RETURN 

END 

FUNCTION  SUB21  ( XL , XD , AL, AH) 

COMHON  /LIST!/  PI 

AHANG= ( ACOS ( ( AH**2+X0**2-X L**2 ) / ( 2 . 3*AH*XD) ) ) *2. 0 
OPANG=ACOS ( ( AH**2+XL**2-XD**2 ) / ( 2. 0*AK*XI) ) 

XLANGs ( AHANG/2 .0  +0PANG)*2. G 
AScGMT* ( (XL**2)* (XLANG-SIN (XLANG) ) )/2.G 
BS£GMT=( (AH** 2)* (AHANG-SIN (AHANG) >  >/2.G 
XLANG=(ACOS( (XL**2+XD**2-AL**2)/ (2,0*XL*XD)) ) *2.0 
O3 ANG=ACOS ( (XL**2+AL**2-XD**2)/(2.G*XL*AL>) 

ALANG= ( XLANG/2 ,0+OPANG) *2 . G 

CS£GMT=( (XL**2>* (XLANG-SIN (XLANG) ) )/2.G 

OS£GMT= ( (AL**2)* (ALANG-SIN (ALANG)) )/2,0 

SUB21=3 I* ( AH**2- AL**2) ♦ASEGMT+DSEGHT -8SE  GMT -CStGMT 
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RETURN 

S21 

lHb 

EN3 

S2i 

15b 

FUNCTION  SU822  (XL , XO, AL, AH) 

522 

10 

COMMON  /LlSTl/  PI 

S22 

2b 

AHANG=(ACOS((AH**2+XO**2-XL**2)/(2.3*AK*XO)))*2.0 

Sic 

3w 

XLANG* ( ACOS  ((XL**2+XD**2-AH**2)/ (2. 3*XL'*XU)))  *2.0 

S  22 

4u 

ASEGMT* ( (XL**2)*(XLANG-SIN(XLANG) ) >/2.0 

S22 

50 

BSEGNT* < (AH** 2) * ( AHANG-SIN (A HANOI ) )/2.G 

S22 

6w 

XLANG*(ACOS( (XL**2+X0**2-AL**2)/(2.0*XL*XU))) *2.b 

S22 

7w 

OPANG=ACOS((XL**2+AL**2-XO**2)/(2.0*XL*AL.U 

S22 

Oil 

ALANG* (XLANG/2.0+QPANG)*2.0 

S22 

9b 

CSEGMT= ( (XL  **2)* ( XLANG-SIN (XLANG) ) )/2. C 

Sic 

lb  u 

OSESMT* ( (AL**2>* (ALANG-SIN (ALANG) » »/2-C 

SlZ 

110 

SU822*ASEGMT+BSEGMT ♦OSEGMT-CStGNT-PI *AL**2 

S  ll 

120 

RETURN 

S  22 

130 

END 

S22 

10b 

FUNCTION  SUB23  (XL , XO .AL. AH) 

S23 

10 

AHANG* ( hCOS ( ( AH**2+X0**2-XL**2)/ (2.9*AH*XO) ) ) *2. 0 

523 

20 

XLANG* ( ACOS («XL**2*XD**2-AH**2)/( 2. 0*XL*XO))) *2.0 

S23 

30 

ASEGMT= ( (Xl.**2  )* (XLANG-SIN (XLANG) ) )/2.G 

S23 

hO 

BSE GMT* ( (AH**2>* (AHANG-SIN (AHANG) ) >/2.G 

S23 

5b 

XLANG* ( ACOS (( XL**2+X0**2-AL**2 )/ (2.0*XL*XO) >) *2.0 

S23 

60 

ALANG* ( ACOS ( ( AL**2+XQ**2-XL**2 )/(2.0*AL*XO)))*2.0 

S23 

70 

CSEGHT* ( ( AL  **2) * (ALANG-SIN (ALANG) ) ) /2. 0 

S23 

60 

DSEGNT* ( (Xl**2)* (XLANG-SIN(XLANG) ) )/2.0 

S23 

90 

SUB23=ASEGMr+f3SEGMT -CSEGHT -QSE  GMT 

S23 

100 

RETURN 

S23 

lib 

END 

S23 

120 

FUNCTION  DIST  (XLAT,XLNG,YLAT,YLNG) 

OIS 

10 

c 

THIS  FUNCTION  COMPUTES  THE  GREAT  CIRCLE  OISTANCE  (IN  N.M.) 

BtT  MtENOIS 

20 

c 

POINTS  X  ANO  Y  WITH  LATITUDES  ANO  LONGITUOtS  GIVEN  IN  TERMS 

OF 

OIS 

30 

c 

RADIANS  (NORTH  ANO  NEST  ARE  POSITIVE). 

OIS 

*♦0 

OATA  PI2/1. 57079632/ 

OIS 

50 

A=ABS (XLNG-YLNG) 

OIS 

6b 

B=PI2-XLAT 

OIS 

7  b 

C=PI2-YLAT 

OIS 

60 

0 1ST* 3442. 2* ACOS (C0S(B)*C0S(C)+SIN(8) *SIN (C) *COS (A ) ) 

OIS 

90 

RETURN 

OIS 

10  b 

END 

OIS 

lib 

SUBROUTINE  PAGE  (N) 

PGt 

lb 

c 

PGt 

20 

OATA  LINE/1/ 

PGE 

30 

c 

PGt 

0  u 

19 

IF  (N)  23.50,90 

PGt 

50 

29 

IF  (LINE-N-5G)  33,40,41 

rut 

60 

30 

LINE=LINE-N 

PGt 

70 

RETURN 

PGt 

6b 

C 

PGt 

90 

43 

LINE*-N 

PGt 

lbu 

GO  TO  70 

PGt 

110 

C 

PGt 

12u 

60 


ono  ooooo 


51 

69 

73 

80 

C 

90 

C 

C 

100 


IF  (LINE)  63*80,60 
LINE=0 
PRIST  103 
RETURN 


PGt  1 3  g 

PGt  140 
P  Gt  130 
PGE  lob 
PGt  17b 


LIN£=LIN£*N  PGt  lau 

IF  (LINE-5C )  80*60,60  PGt  190 

PGt  200 
PGt  21b 

FORMAT  ( 1H1 )  PGt  220 

EMD  PGt  23a- 

SUBROUTINE  PROCESS  (PSIN,ICALN,YI£LDH,NCASt,MQQt)  PRO  10 

DIMENSION  PSINil) *  ICALN(l),  YIELDM(l)  PRO  2b 

COMMON  /DISTIME/  S(99,2),0 (39,21 ,NUN0ATA<2) ,CV«2) *TI (2) ,ITYPt»NTYPPRO  30 
1E,JTYPE,MTYPE,RA0MAX  PRO  *,0 

COMMON  /ACFTS/  A (50 ,2 > »F(50 ,2) , 6(50 ,21  , VS <80 , 21 ,  VEL (30 ,2)  ,A0CtL (50PRO  30 
1,2) ,N0ATA(2>  PRO  bu 

COMMON  /NUCLER/  FLRP ( 2,4) ,FTSA (2 ,b> , FLRT (2,b> , BURST ( 2) , QISMIN (2 ) , VPRO  70 
1PSI (2)»VCAL (2) , V YIELD (4)  PRO  8j 

PRO  90 

THIS  SUBROUTINE  IS  USED  TO  INPUT  DATA  FOR  AIRCRAFT  AND  IS  UStO  PRO  106 

TO  GENERATE  NUCLEAR  EFFECTS  GEOMETRY  FOR  SPECIFIED  HARQNcSS  PRO  lib 

LEVELS  VIA  SUBROUTINES  SABERCM  AMO  SMAPTCM  PRO  120 


,0.001,1.0001,3. 


OMMON  /PASS/  SZ,AZ,DELA,AMAX,BETIND, BETA, W,RHO, VIS, PZ 
VLL,ALPHL,TMPL, HUAL ,CPL , XLEL , CRAFT, JBURS T ,M BURST , ATM, 
OMMON  /PROBLEM/  NEHPROd 
OGICAL  MEMPROB 

AT  A  TOL,PERTB1,PERTB2,CMTF,CFTM/0.001 
O  210  I  =  1 , NT  YPE 
ALL  PAGE  <C> 

RITE  (6,223)  NCASE,MOCE 
1EAD  310,  AZ.HBL 
IURST  (I )  =HBL 
iZORIG=  AZ 
:EAO  230,  N 
IOAT  A  ( I )  =N 

RITE  (6,240)  I,NTYPE 
AL=FLOAT (ICALN(I) ) 

ELP-PS IN ( I ) 

p^t i t i =nFi  P 


.  PRO  13b 
,HSL,HTE,HBLPRO  lb 0 
CAL  ,  T tFF.I  PRC  13J 

PRO  ioL 
PRO  ,l7g 
2  80  B,  0.30‘,8/PRO  180 
PRO  19. 
FRO  20 u 
PRO  210 
PRO  220 
PRO  230 
PRO  2ba 
PRO  25b 
PRO  2o0 
PRO  27b 
PiiO  23u 
PRO  293 
PRO  300 


VCAL(I)-CAL 

WRITE  (6,250)  I 

WRITE  (6,260)  DELP  ,ICALMI ) 

WRITE  (6,270)  I 
WRITE  (6,280) 

CALL  PAGE  (23) 

MPTS=G 

THE  FOLLOWING  SECTION  READS  AIRCRAFT  INPUT  UATA  AND  ADJUSTS  THE 
ALTITUDE  (IF  NECESSARY)  FOR  USE  3Y  ALAG  WHICH  REQUIRES  IT  TO  BE 


PRO  3lb 
PRO  32b 
PRO  33u 
PRO  3b 0 
PRO  35 g 
PRO  36b 
PRO  38b 
PRO  390 
PRC  bug 
PRO  41b 


61 


o  o  o  o  o 


STRICTLY  MONOTONICAl LY  INCREASING.  THE  ORIGINAL  ALTITUOE  INPUT 
OATA  IS  ASSUMED  TO  BE  NONOTONIC  ALLY  INCREASING. 

AN  AUTOMATIC  LOOKUP  ON  THE  VELOCITY  OF  SOUND  GIVEN  ALTITUDE  IS 
PERFORMED  VIA  FUNCTION  SUBROUTINE  SSPF. 

READ  299  •  F (1 , I) , G ( 1. 1) .A (1,1) « VEL  (1,1 1 , ACCcL (1,1 1 
ALT=CFTM*A  (1,1! 

VS (1. I)=CMTF*SSPF (ALT ) 

J=1 

WRITE  (6 1 39  91  J,F  (1 ,1 ) ,  G(1 , 1 ) ,  A  ( 1 , 1 ) ,  VS  (1 , 1 ) ,  VtL  (1 ,1 )  ,  ACCEL  (1 , 1) 
DO  AO  J=2,N 

READ  293  t  F (J , I) , G  ( J, I ) ,A ( J ,1 ) , VEL  (J , I ) , ACCEL ( J, I > 

IF  (A  (J,I) .GT.A(J-ltl) )  GO  TO  3J 
A(J,I)=P£RTB2*A(J-1,I) 

IF  (AZ.EQ. A (J-lt I) )  AZ=A(J,I) 

IF  (A  (JtD.GT.C.O )  GO  TO  1L 
A(J.I)=A(J-1,I)*P£RTB1 
GO  TO  23 
ALT=CFTM*A (J, i» 

VS(J, I) -CMTF*SSPF  (ALT) 

WRITE  (6,300)  JtF (J.I) .G(Jtl) t A(Jt I) tVS(Jtl) t VEL ( J,I )« ACCEL ( J, I) 
CALL  PAGE  (1) 

CONTINUE 

READ  290  t  FALTGM,FMACH,TI(I),XATI 
READ  310.  HTE.BETINO.RHOtVlS.PZ.HSL 
FALT=AZ 

VS1= ALAG (AZ.A(ltl)tVS (1.1) ,N) 

VEL1=ALAG(AZ,A(1,I),VEL(1,I),N) 

IF  ((ABS(VELl-FMACH)/((VELl*FMACH)/2.0)).Lt.0.01>  VtLl=FMACH 
VuEstVSl*  VEL1 

ACC- ALAG (AZ , A (1. I ) .ACCEL (1 ,1) , N) 

CALL  PAGE  (-5) 

WRITE  (6,320)  FALTCM 
CALL  PAGE  (0) 

WRITE  (6,330)  I.AZ 
WRITE  (6,340)  VS1 
WRITE  (6,350)  ACC 

IF  ((VELl.LT.FMACH).ANO.(XATI.EQ.O.O))  WRITE  (6,360  VtLl.VtLl 
IF  ((VELl.GE.FMACH).OR.  ( (  VEH.  LT.  FMACH)  .AND.  (  XATI  .GT  .  0 . 0) )  )  WRITE 
1(6,360)  VELl.FHACH 
VF=VS1*FMACH 

IF  ((VEL1.LT.FHACH).ANO.(XATI.£{1.9.0))  WRITE  (b,370>  VOE.Vuc 
IF  ((VEL1.GE.FHACH)  .OR.  ( ( VEL1. LT  .FMACH).  AND.  (XATI.  GT.  3 . 0 ) ) )  WRITc. 
1(6,370)  VQE.VF 
IF  (VEL1.LE.FMACH)  GO  TO  5C 
WRITE  (6,360) 

STOP 

CONTINUE 


THE  VARIABLE  QISMIN  CONTAINS  THE  MINIMUM  DISTANCE  FROM  BRAKc. 


PRO  420 
PRO  43g 
PRO  hhC 
PRO  45j 
PRO  4b  g 
PRO  470 
PRO  460 
PRO  49u 

PtvO  3. u 

PRO  510 
PRO  p20 
PRO  530 
PRO  5**g 
PRO  5 5g 
PRO  5og 
PRO  57 u 
PRO  56« 
PRO  590 
PRO  oOb 
PRO  6l„ 
PRO  62 u 
PRO  b3g 
PRO  odO 
PRO  67  a 
PRO  66u 
PRO  690 
PRO  095 
PRO  70 g 
PRO  72  o 
PRO  73 j 
PRO  740 
PRO  750 
PRO  76u 
PRO  77 j 
PRO  700 
PRO  79u 
PRO  bgg 
PRO  fllo 
PRO  620 
PRO  630 
PRO  04g 
PRO  85g 
PRO  6b0 
PRO  670 
PRO  66g 
PRO  690 
PRO  500 
PRO  9ib 
PRO  92 g 
PRO  93C 
PRO  940 


WMg&k&A  its- 


c 

c 

c 

c 

c 

c 
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70 

60 


93 

130 


113 


120 


130 


RELEASE  AT  WHICH  THE  LtVEL-OFF  AuT IT  JOE  IS  ATTAINtO.  PRO  99L 

PRO  9oU 

OISMIN(I)  =  ALAG(AZORIGtA(ltI)fF(lfI)«N)  PRO  97t. 

PRO  961- 
PRO  99  0 

EQJATI3NS  OF  NOTION  PR01C-„ 

PROlciU 

ALT  =  F ALT  PR01w2u 

V0=V0E  PR01Q3Q 

L=NDATASI)  PROl-90 

ALTCH=FALTCM  PROl-aJ 

ACCIO2-ACC/2.0  PROluSO 

XJJMP=0.0  PR01u7u 

IF  (VEL1.EQ.FMACH)  XJUMP=1.0  PROIOUQ 

IF  (  (VEll.LT.FMACH)  .AND.  (XATI.tQ.3.0))  XJUM»  =  1.J  PROlv-Ou 

IF  (ALT.GE.ALTCH)  XJUMP*1.C  PROllOi 

S3=ALAG( ALT *A (1,1) ,F(1,I) ,L)  PROlliw 

TQ= AL AG ( ALT ,  A  ( 1 » I ) ,G<1,I) ,L)  PR0112G 

IF  (XJUHP.EQ.0.0)  GO  TO  60  PROllig 

cvm=vo  prouho 

GO  TO  80  PROllSt 

T0SQ=TQ*TQ  PROlloO 

Ci=ACC*T3  PROllTu 

VSOUNO=A(.AG(ALT,A(l,I)  ,VS  (1,1)  ,LI  _  PR0116G 

CV(I) =FHACH*V SOUND  PR0119U 

TF=T0-M  (CV (I) -VO) /ACC)  PR01200 

IF  (TF.GT.TO)  GO  TO  70  PROl2l„ 

WRITE  <6  1 390 )  TO i TF  «C V  (I)  *  V0  PR0122J 

STOP  PR0123u 

OT=  (TF-T0)/XATI  ..  PR01293 

OO  90  J=1,L  PR0129G 

K=J  PR0126G 

NUMDAT  A { I) =K  PRO1270 

IF  ((F(J.I).GE.SO) .OR. (G(J,I) .GE.T01)  GO  TO  100  PRO1280 

0  ( J  *  I ) =F  (Jtl)  PR0129L 

S(J,I)=G(J,I)  PR013uG 

CONTINUE  PR013H 

D  (Kt  I  )  =  S 3  PR0132i. 

S(K.I)=T0  PR0133U 

IF  (XJJMP.NE.0.0)  GO  TO  1<*C  PR0139C 

K=<+1  PR013?k 

S(K,I)=S (K-1,I)+0T  PK013ou 

IF  (S (K«I) .GE.TF)  GO  TO  120  PR0137G 

Q<K,I>=SQ*(VQMS<K,  I) -TO)  )  +  )ACCI02M3(K»I)**2  +  TQSQt))-(Cl*S(K*I))  PRO1380 
GO  TO  113  P RO 1 3 3 w 

S(K.I)=TF  PRO140  o 

D(K,I)=S0*(V0*(S(K,  D-TO)  > -H  ACCI02M  3 C  K, I) **2*T OSQ)  >  -  <C1*S  (K ,1 ) )  PR014U 
IF  (ABS(SCK,I)-SCK-l»I)).LT.TOL)  GO  TO  130  PR01**2u 

NUNOATA  (I)  =  K  PR01**3u 

GO  TO  190  PR0199G 

NUMOATA <I>=K-i  PR0149G 
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r 


f 

140 

NUMOATA (I)-NUHOATA <1)41 

PR014O0 

INQEX*4UM0ATA (I) 

PR0147  u 

S  (INDEX ,1)  sS  < INDEX- 1 , I )+T I  (I ) 

PR0148U 

OdNOEX,I)  =  <CVd)*TId))*D<INOEX-l,I) 

PRO1490 

IF  (NUHOATAd)  .LT.80)  GO  TO  140 

PRO  15 Q  Q 

C 

PR0151U 

HRITE  (6,431 

PRC1523 

CALL  PAGE  (27) 

PR01536 

c 

FOLLOWING  CONVERTS  FEET/SECONOS  TO  NM/HINUTES 

PRO 1540 

INO£X=NUMOATA (I) 

PR01556 

DO  150  KK=1, INDEX 

PR01566 

TtN3l=S IKK* I) 

PR0157u 

TEMP2=D(KK,I) 

PR0158U 

S(KK,I)=S(KK,I)/60.G 

PR01596 

0(KK,I)-0(KK,I)/6C60,0 

PRO 160 u 

HRITE  (6,410)  TEMP2,TEHP1,0(KK,I)  ,S(«,I) 

PR0161U 

CALL  PAGE  (1) 

PRO  1620 

150 

CONTINUE  - 

PR01633 

CV( I) *CV(I) *60.0/6060.0 

PR01643 

‘ 

TI(I)*TI(I)/60.0 

PROl63o 

O ISHIN(I)-Q IS HIN(I)/6 000.0 

PRO1660 

C 

PR0167 i 

> 

OO  200  J=1,MTYPE 

PR0168G 

» 

W=YI£L3M ( J) 

PR01694 

VYIe.LO(  J)  =  W 

PRO  17 0  0 

WRITE  (6,420)  J,MTYPt,I 

PR01710 

WRITE  (6,430)  J,W 

PRO  172 J 

RE  A3  443,  ISA8ER,H0RF,TSA 

PR01731 

j 

WRITE  (6,450) 

PR01740 

WRITE  (6,463) 

PR01756 

WRITE  (6,470)  OELP 

PRO1760 

WRITE  (6,480)  W 

PR0177  u 

\ 

WRITE  (6,490)  HTE 

PR01780 

WRITE  (6,500)  HP'. 

PRO1790 

WRITE  (6,510)  AZ 

PR01800 

HRITE  (6,520) 

PRO 161 j 

IF  (ISABER.NE.l)  GO  TO  160 

PRO1820 

WRITE  (6,530) 

PR0183w 

t 

GO  TO  170 

PRO1640 

15] 

If>ROBl=0 

PR0185U 

HQRF=TSA=O.Q 

PROI80  u 

CALL  SABERCH  (SR, AZ ,HTE ,H8L ,W , OtLP , HOKF , TS A,NCASE , IPROB1) _ 

PR0187  u 

IF  (IPROB1.NE .1)  GO  TO  173 

PRO1660 

WRITE  (6,540) 

PR0169U 

HORF=TSA*Q.O 

PR019JU 

17] 

FLR? (I,J)*HORF/6080.0 

PR019i.u 

• 

FTSA(I, J)*TSA/60.0 

PR0192U 

HRITE  (6,550)  FLRP(I,J),H0RF,FT3A(I,J),TrA 

PRO1930 

READ  440,  ISNAPT , SZ 

PRO 1940 

WRITE  (6,560 

PR019po 

HRITE  (6,570) 

PR019o. 

■ 

64 

i. 


WRITE  (6.580)  CAL 

PR0197* 

WRITE  (6,590)  W 

PRO1980 

WRITE  (6,600)  HTE 

PRO! 59b 

WRITE  (6,610)  HBL 

P  RO  2  u  j b 

WRITE  (6,620)  AZ 

PR02 j lu 

WRITE  (6,630)  HSL 

PRU2020 

WRITE  (o,b<,0)  PZ 

PR02b3b 

WRITE  (6,650  VIS 

PKOZ.tb 

WRITE  (6,663)  RHO 

PR02w»b 

WRITE  (o  ,67u)  BETINO 

Pk02. Ob 

WRITE  (6,680) 

PR02.7  u 

IF  (ISNAPT.NE.I)  GO  TO  180 

PR02bd'. 

WRITE  (6,690) 

PR02b9- 

GO  TO  19 J 

PRUZlb u 

133 

IPROB2=fl 

PR02110 

SZ=  L  *  0 

PR0212 - 

CALL  SNAPTCM  (IPROB2) 

PR02l3w 

IF  ((IPROB2.NE.1) .AND. ( .NOT.NEWPROB) )  GO  TO 

19i, 

PRU21hu 

IF  (IPROS2.EQ.1)  WRITE  (6,7-0) 

PR0215G 

IF  (NEWPROB )  WRITE  (6,710) 

PR02loc 

SZ=C.O 

PR02l7u 

190 

FLRT (I, J)=SZ/6083.C 

PK0218J 

WRITE  (6,720)  FLRT(I,J),SZ 

PRO2190 

200 

COVTINJE 

PK022 3  u 

210 

CONTINUE 

PRU22lb 

RETURN 

PR0222u 

C 

PR0223u 

220 

FORMAT  (28H  SUBROUTINE  PROCESS,  CASE  ,13, 

9H ,  MODE  ,12////) 

PR0224J 

230 

FORMAT  (15) 

PR022»u 

240 

FORMAT  (1H  , 5 X.14H AIRCRAFT  TYPE  ,12, 5H  OF 

,12 ,9H  TYPE (S) , /// ) 

PR022ou 

250 

FORMAT  (1H  , 10 X, 41 H VULNERABILITY  CRITERIA  FOR  AIRCRAFT  TYPt  ,12//) PR0227 U 

250 

FORMAT  (1H  ,15X,F5,2,5H  PSI/16X,I5,3H  CAL/CM ,3H**2///) 

PR0228- 

270 

FORMAT  (1H  , 1CX.29HOATA  INPUT  FOR  AIRCRAFT 

TYPE  ,12//) 

PR0229- 

283 

FORMAT  (1H  tl6X,4HCARD,lQX , 6H GROUND , 15X , 6HFLIGHT , 14X, 8HAIRGRAFT , 

l3PR023b  l 

1X,8HVEL0CITY, 11X,4HMACH,5X,9HLEV£L-0FF/16X, 

6HNUMBER,9X ,5HRANGE,17XPR02310 

2j4HTIME,15X* 8HALTI TUOE, 13X , 8HOF  SOUN J, 10 X , 6HNUM3ER.3X,  12HACLcLc.RATPR0232u 

3  ION/) 

PRU233b 

290 

FORMAT  (3F15.8.2F10.6) 

PR0234L 

300 

FORMAT  (1H  ,16X, I3,4(5X,El6.8) ,2  (6X.F6.33 ) 

PRO2350 

310 

FORMAT  (6F10.8) 

PR0236b 

320 

FORMAT  (2(/, IX), 15X, 4 6H INITIAL  ALTITUOE  (IN 

CLIMBING)  OF  MAXIMUM 

MPR0237  b 

1ACH//21X.F7.Q ,6H  FEET) 

PRO230O 

330  FORMAT  ( 11X» 32H0 AT  A  COMPUTED  FOR  AIRCRAFT  TYPE  ,I2,15H  WITH  RcSPtPR02390 
1CT  f 26HT0  A  TERMINAL  ALTIT  UQE  OF  ,F7.0,6H  FEtT//)  PR024GL 

340  FORMAT  (1H  *15X ,17HVELOCITY  OF  SOUND//21 X ,F8 . 2 ,13H  FEET/8EL0ND//) PR0241L 

350  FORMAT  ( 1H  ,15X,22HACCELERATION  COMPONENT//2lX,F6.3,20H  Ftt 1/ SEC0PR0242G 

1NO/SECONO//)  PRO2<*30 

360  FORMAT  (1H  ,15X,12HMACH  NUMBERS//21X ,9H  INITIAL  ,F6.3/21X,9HT£RMINPR02h4U 
1 AL  ,F6.3//I  PR02h6 j 

370  FORMAT  (1H  , 15X, 8HVELOCIT Y //2i X , 3H  INITIAL  ,F7. 1,13H  F££T/ScC0ND/PR02Hb& 
121X.9HTERMINAL  ,F7.1,13H  FEET/SECONO//)  PR02476 


65 


I 


3S0 

390 

400 

410 

420 

433 

443 

453 

*50 

473 

433 

493 

500 

510 

523 

533 

540 

553 


C 

C 


FORMAT  ( 77H  STOP  ISSUED  -  INITIAL  VELOCITY  (VELl)  GREATER  THAN  TlRPR0248u 
1MINAL  VELOCITY  (FHACH) )  PR0249* 

FORMAT  <1H1,4HTG=  ,E16. 8 , 10 X, 4HTF=  , £16. 8 , 10 X , 3HC V=,E16. 8 . l: X, 3HV4PR025* 4 
i=»El6 •  8//35H  DATA  INPUT  INCORRECT-- (CV. Lt.  VO ) )  PR0251U 

FORMAT  ( 17X. 39HGR0UND  RANGE  (F££T>  FLIGHT  TIME  (SEC) .18X.37HGROUPRD2524 
1NO  RANGE  (NH)  FLIGHT  TIME  (MIN)/)  PR0253- 

FORMAT  (20X,£16.B.4X,E16.8,i9X,£l6.8.4X,El6.8)  PR025*u 

FORMAT  IlHl.liX.lSHHISSiLE  Tirt  ,12, 3H  OF  sI2t32H  TVP£(S)  AGAIN6PR02p3 0 

PKU25ol 
Kl //)  PR0257 . 

PRO 2584 
PR02?9t< 
PROEoli  l 
PRQ261 w 
PR02624 
PR0263G 
PR02o*u 
PR0265C 
PRO2U60 


IT  AIRCRAFT  TYPE  .12//) 

FORMAT  (1H  .15X.22HYIELO  OF  MISSILE  TYPE  «I2//2*X .F6. J «*H 
FORMAT  (I5.2F15.8) 

FORMAT  (14(/.1X) ,  i4X»  16HSUBR04ITINE  S ABtRCM/J 
FORMAT  (1H  ,  2  OX ,  21HD AT  A  INPUT  TO  5A3ERCM) 


FORMAT  (1H  .26X.F5.2.26H 
FORMAT  (1H  .ZSX.Fb.O.lSH 
FORMAT  (1H  .25X.F6.G.24H 
FORMAT  (1H  .25X.F6.0.22H 
FORMAT  (1H  .25X.F6.0.27H 


PSI 

KT 

FEET 

FifcT 

FELT 


BLAST  OVERPRlSSURu. ) 
YIELD) 

TERRAIN  HilbHT) 
BURST  HEIGHT) 
AIRCRAFT  ALT ITUDc/) 


FORMAT  (1H  .15X.22HSA8ERCM  OUTPUT  FOLLOWS) 

FORMAT  (39H  *****  SA8LRCM  OVERRIDE  EFFECTED  ***♦♦, UH  ISABtR  =  l)PRO2b70 
FORMAT  ( 39H  *****  SA8ERCH  PROBLEMS  OETtCTED  **♦♦*. 11H  IPROBl  =  DPR02684 
FORMAT  (1H-.18X.91H  A  SUMMARY  OF  DATA  OUTPUT  FROM  SA8ERCM  USED  BYPR02694 
1  SUBROUTINE  OETAREA  IN  COMPUTING  LETHAL  AREA/26X.29HLETHAL  O VERPRtPRO 273 4 
2SSURE  RAOIUS  *  .E16.8.16H  NAUTICAL  MILES/53X, 2H=  .E16.8.6H  FtcT/PRQ2710 
331X.24HTIME  OF  SHOCK  ARRIVAL  =  .E16.8.9H  MINUTES/53X.2H-  , l!6 . 0 . 9PR027 Zi 


4H  SECONDS//) 


PR0273U 


1  SUBROUTINE  OETAREA  IN  COMPUTING  LETHAL  AREA/25X .24HLE THAL  THtRMALPR02934 


2  RADIUS  =  .E16.8.16H 
END 

FUNCTION  SSPF  (HM) 


NAUTICAL  MILES/48X.2H*  .E15.8.6H  FEET//) 


PR0294G 
PRO2950- 
SSP  10 


ROUTINE  TO  COMPUTE  SOUNO  SPEED  IN  ME TERS/SECOND  AS  A  FUNCTION  OF 


SSP 

SSP 


2w 

30 


550 

FORMAT 

(1H1 

.15X.18HSU8ROUTINE  SNAPTCM/) 

PR0274G 

570 

FORHAT 

(1H 

.20X.21HOATA  INPUT  TO  SNAPTCM) 

PRO2750 

• 

580 

FORMAT 

(1H 

.26X.F5.0.8H  CAL/CM,3H**2,16H  THERMAL  ENERGY) 

PRO2760 

590 

FORMAT 

(1H 

.25X.F6.0.18H 

KT 

YIELD) 

PR0277G 

633 

FORMAT 

(1H 

.25X.F6.Q.27H 

FEET 

TERRAIN  HEIGHT) 

PR02784 

610 

FORMAT 

(1H 

.25X.F6.0.25H 

FE*T 

BURST  HEIGHT) 

PRO2790 

523 

FORMAT 

(1H 

.25X.F6.0.3CH 

FEET 

AIRCRAFT  ALTITUDE) 

PR028UG 

533 

FORMAT 

(1H 

.25X.F6.0.3GH 

FEET 

HAZE  LAYcR  HEIGHT) 

PR0281U 

6*0 

FORMAT 

(1H 

.25X.F6.1.33H 

MM  HG 

WATER  VAPOR  PRESSURE) 

PR02824 

653 

FORMAT 

(1H 

.25X.F6. 1.44H 

HILES 

VISIBILITY (U. S. «  STATUTE 

MILLPR02830 

IS)) 

PR02644 

660 

FORHAT 

(1H 

.25X.F6.2.31H 

(ALBEDO) 

GROUND  REFLECTANCE) 

PR0285U 

670 

FORMAT 

(1H 

.25X.F6.2.26H 

(BET INQ) 

SHOULD  Bt  1.0/) 

PRO2860 

683 

FORMAT 

(1H 

.1 5X, 22HSNAPTCM 

OUTPUT 

FOLLOWS) 

PRO2870 

* 

690 

FORMAT 

(39H 

*****  SNAPTCM 

OVERRIDE 

EFFECTED  ***♦*, 11H  ISNAPT 

DPR02684 

700 

FORMAT 

( 39H 

*****  SNAPTCH 

PROBLEMS 

OETtCTED  ****♦. 11H  IPRDB2 

- 

1 ) PR02894 

710 

FORMAT 

( 39H 

*****  SNAPTCH 

PROBLEMS 

OETECTtO  ****♦, 17HNEHPROB 

= 

.  TPR0290  4 

1RU  E.) 

PRO2910 

720 

FORMAT 

(1H- 

.18X.91H  A  SUMMARY  OF 

DATA  OUTPUT  FROM  SNAPTCH  USED 

BYPRO2920 

66 


c 

c 

c 

c 

c 

c 


c 


c 


c 

10 


23 

C 

30 

43 


53 

C 

63 


C 

C 

c 

c 

c 


GEOMETRIC  ALTITUDE  IN  METERS.  SSP 

BASEO  ON  DATA  PRESENTEO  IN  //U.S.  STANDARD  ATMOS? HcRE,  1962//.  SSP 

SSP 

ROUTINE  9Y  HARRY  M.  MURPHY.  JR..  29APR71.  CORRECTED  30CT7c  (HMM)  SSP 

SSP 

DIMENSION  ALT  (10)  .  TM(lu),  DTDZ(13)  SSP 

SSP 

DATA  ALT /-4996 .0  ,0.0,11319. 3, 2u3o3.J,3tl62*b,vfj?u.b .  ?2  *2  9  •  «  ,el53lSSF 
1.0.79994.0,93000.0/  SSP 

SSP 

DATA  TM/323. 65,288. 15, 21b •  65  <  216 . 65 , 22o . 6  5 ,27  * . 65, 27  b • 65 , 252 . 65 , 18 SSP 
10.65,180.65/  SSP 

SSP 

DATA  OTDZ/-6.5052£"3,-fc. 43882- 3,0.1 , 3. 91 82t-<* ,2. 76532-3 ,0 . . , -1 . 997SSP 
14E-3 , -3.912 4E-3»3. 0,3.1/  SSP 

SSP 

SSP 


Z=HM  SSP 

1=1  SSP 

If  ( Z+5  000 . 0  )  50,50  ,20  SSP 

If  (90003. 0-Z)  63,60,30  SSP 

SSP 

DO  40  1=1,9  SSP 

If  (ALT  (1+1  )-Z)  <*0,40  ,53  -  SSP 

CONTINUE  SSP 

1=10  SSP 

SSP 

SS-»f=20.Q46  796*Sl3RT(TM(I)  +DTOZ  (I  i  *  (Z-ALT  ( I ) )  )  SSP 

RETURN  SSP 

SSP 

S3?F=269.44  SSP 

RETURN  SSP 

END  SSP 

fUNCT ION  DETAREA  (Q.DSPT)  UET 

DIMENSION  XI  ( 200 )  ,  YK200),  X2(23Q>,  Y2(20u),  X(40u),  Y(40j)  DtT 

COMMON  /OISTIME/  S (99,2 )  ,  0 (99, 2) .NUMUATA (2) , CV (2 ) , TI (2 ) ,IT YPE , NT YPDET 
l£,JTYPE,MTYP£,RADMAX  DET 

COMHON  /ACfTS/  A (50,2) ,F (50 ,2) ,G(30 ,2) , VS (50 . 2 > , VEL (50 , 2) , ACCEL (5u OtT 
1,2) , NDAT A (2 )  OtT 

COMMON  /NUCLER/  f LRP (2,4) , F TSA (2 ,4 ) , f LRT (2,4) ,6URST(2>  ,0ISMiN(2) , VUtT 
1PSI(2),YCAL(2),YYI£LD(4)  DET 

COMMON  /PASS/  SZ,AZ,OELA,AMAX, BETIND, BETA, H,RHO, VIS, PZ.JiSL.HTt.HBLDET 
1 ,YLL,AL?HL,TMPL,HUAL,CPL, XLEL, CRAFT , J BURST, MB URST, ATM, CAL , TEff I  OET 

COMMON  /PROBLEM/  NEHPROB  OET 

LOGICAL  NEHPROB  DET 

OATA  PI/3.141592653539793/  OET 

DET 

mm,****m,*„m**m*m**m**m*m*«m**,om*m„m**m**m*mmq£T 
THE  LATTER  PART  OF  THIS  SUBROUTINE  COMPUTES  LETHAL  AREA  FOR  A  DtT 

BURST  LOCATEO  Q  NAUTICAL  MILES  FROM  THE  CENTROID  DET 


V********** «*»«»«« ********************** #«*«•***** ******** ******** Q£J 


•*0 
5b 
bO 
7b 
80 
91 
13c 
lib 
120 
l3  * 
14b 
*.5  u 

100 
17* 
lb* 
19c 
2b  b 
210 
22b 

23u 

2**u 
25  0 
260 
270 
280 
290 
3*  u 
3lu 
32b 
330 
34b 
35  0 
3ob  - 
lu 

2b 

30 

4b 

5u 

bb 

70 

80 

90 

101 
110 
12b 

13b 

1  <*  b 

15b 
16b 
17C 
18  0 
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DcT 

190 

IF  (Q.LT.0,0)  stop 

DtT 

20- 

QONM=Q*OSPT 

OET 

21  w 

IF  (QONM.G£.OiSMIN(ITYP£) )  GO 

TO  JC 

UET 

22- 

OcT 

230 

QOFT=60d3.0*QONH 

DcT 

24- 

AZ=ALAG<aOFT,F<l,ITYP£),A (l.ITYPE) , NOAT A (ITT P c) ) 

OcT 

25- 

IF  (AZ.LT.HTE)  AZ=HT£ 

DcT 

26- 

HBLs8URST (ITYPE) 

DcT 

27  - 

WRITE  (6,140)  Q,QSPT,QLNM,0ISMIN(ITYP2) 

Oil 

28  0 

CAL= VCAL (ITYPE) 

OET 

29a 

OELP=VPSI(ITYP£) 

OcT 

3u- 

W=V YIELD ( JTYPc) 

DET 

3l  - 

OcT 

32  a 

WRITE  (6,150 )  JTYPc*MT¥Pc» ITYPE 

OET 

33- 

WRITE  (6,160)  JTYP£»W 

OcT 

3**J 

WRITE  (6,170) 

OET 

35- 

WRITE  (6,180) 

DET 

360 

WRITE  (6,190)  OELP 

OcT 

37- 

WRITE  (6,2-3 )  W 

OcT 

38u 

WRITE  (6,210)  HTE 

OET 

39- 

WRITE  (6,220)  H8L 

OcT 

400 

WRITE  (6,23J)  AZ 

OcT 

41- 

WRITE  (6 , 240 ) 

OcT 

42- 

I?R0B1=3 

OcT 

43- 

HORF=TSA=J.O 

OcT 

44U 

CALL  SA8ERCH  (SR , AZ , HTE , HBL , W , 

OELP , HORF ,TSA,NCASL,IPROBl) 

DcT 

45- 

IF  (IPROB1.NE.1)  GO  TO  10 

DcT 

40  w 

WRITE  (6,250) 

OcT 

47- 

HORF-TSA=O.Q 

DcT 

46C 

FLRPSI=HORF/608Q.O 

OET 

43- 

FTSASI=TSA/60.C 

OcT 

53- 

WRITE  (6,260  FLRPSI,HORF,FTSASI,TSA 

OcT 

51- 

WRITE  (6,270) 

OcT 

52  0 

WRITE  (6,280) 

UET 

53- 

WRITE  (6,290)  CAL 

OcT 

64- 

WRITE  (6,300)  W 

DcT 

55- 

WRITE  (6,310)  HTE 

OcT 

s>60 

WRITE  (6,320)  H8L 

OcT 

57- 

WRITE  (6,330)  AZ 

OET 

58- 

WRITE  (6,340)  HSL 

DcT 

69- 

WRITE  (6,350)  PZ 

OcT 

ou  - 

WRITE  (6,360)  VIS 

UET 

61- 

WRITE  (6,370)  RHO 

OcT 

o2- 

WRITE  (6,380)  BET INO 

OcT 

o3fl 

WRITE  (6,390) 

OET 

640 

IPROB2=  0 

OET 

o5u 

SZ=0.0 

DET 

66U 

CALL  SNAPTCM  (IPR0B2) 

OET 

670 

IF  ( (IPROB2.NE.1) .AND. (.NOT.NEWPROB) )  GO  TO  23 

OET 

68- 

IF  ( I PRO 32, £Q,1)  WRITE  (6,400) 

OET 

69- 

68 


IF  (NEWPR08)  WRITE  (6,410) 

DET 

7u. 

sz-c.o 

DlT 

7lu 

29 

FLRTHM=SZ/6980.0 

DlT 

72  0 

WRITE  (6,420)  FLRTHM,SZ 

DlT 

73u 

C 

DlT 

7  4. 

R=H0RF/6 980 . 9 

DlT 

75  0 

T=TSA/60.0 

DlT 

7o0 

RTH£RM2=SZ/60  80.9 

DlT 

77. 

GO  TO  40 

DlT 

7o« 

C 

DlT 

79. 

C 

DlT 

600 

39 

R=FLRP (ITYPE, JTY PE) 

DlT 

81  j 

RTH£RM2=FLRT (ITYPE, JTYPl) 

DlT 

82  u 

T=FTSA(ITVPE,JTYPE) 

DlT 

63. 

40 

IF  ((Q.EQ.O.G ).OR. (R.LE.O. 

0) 

.OR. (T.LE.0.0) >  GO  TO 

110  DlT 

ohO 

INDEX=NUMDATA (ITYPE ) 

DlT 

65. 

TSPT=ALAG(DSPT, Oil, ITYPE)  , 

S (1, ITYPE) , INDEX) 

DlT 

6bu 

IF  (Q.GT.R)  GO  TO  9G 

DlT 

8  7  . 

C 

OlT 

660 

c 

AT  THIS  POINT  THE  VARIABLES 

R,T,RTHERM2,0SPT,  AND 

TSPT  ARE  KNOWN.  DET 

69. 

c 

ALSO  IT  HAS  SEEN  ESTABLISHES 

THAT  (Q.GT.Q.i) , (R.GT.J.Q) , (T.GT.u.u) DlT 

9Su 

c 

AN9  (Q.LE.R) 

DET 

9i0 

c 

NEEO  TO  COMPUTE  ACIR,  THE 

DISTANCE  FROM  THE  ClNTROID  THAT  THl  DlT 

92  0 

c 

AIRCRAFT  CAN  TRAVEL  IN  TIME 

T,  ASSUMING  THAT  THE 

AIRCRAFT-  _WAS_  DlT 

53. 

c 

LOCATED  AT  THE  CENTROID  AT 

THE  ONSET  OF  THl  BURST 

.  DlT 

94. 

c 

DET 

95u 

T2=TSPT+T 

DlT 

9o0 

ACIR= AL AG (T2,S(1, ITYPE >,0(1, 

ITYPE) ,INO£X)-OSPT 

DlT 

97. 

IF  (ACIR. GT. 0.0)  GO  TO  50 

DlT 

96. 

WRITE  (6,430)  ACIR 

DET 

99. 

51 

C 

C 

c 

c 


c 

c 


c 

c 

69 


IF  (ACIR.LT. 0.0)  STOP 

ACIRSQs ACIR*ACIR 

IF  ( (Q+R) . LC. ACIR)  GO  TO  129 


IF  (Q.LT.R)  GO  TO  70 


AT  THIS  POINT  Q.EQ.R 
IF  (ACIR. EQ. 0.0)  GO  TO  60 

AT  THIS  POINT  ACIR.GT.t.O 
ALSO  ACIR.LT. (Q*R)= (2.C*R) 
XAR=  ACIRSQ/ (2 . 0*R) 

YAR=SQRT (ACIRSQ- (XAR*XAR)  ) 
ALPHA=ATAN (YAR/XAR) 

GO  TO  109 


ALPHA*PI/2.0 
GO  TO  199 


DET1000 
DlT  lulu 
OlT  1.2. 
OlT 1l  3 j 
utTiOtn 
OlT 1. 5 i 
DET  lu 
UlT1.7 . 
DlTUB. 
OET1C  9. 
Ul) llu. 
OcTlllu 
DET1120 
DET1130 
dlTii.o 

DlTIISU 
OlT 1160 
0ET117. 
OtTlldu 
OlT 119  0 
OlT 129  u 


69 


AT  THIS  POINT  Q.LT.R 

IF  ( (R-Q) .Gt. ACIR)  GC  TO  80 


C 

C 

c 

73 

C 

c 

c 


c 

c 

c 

80 

C 

C 

c 

90 

130 


C 

110 

120 


C 

ut 


c 

143 


AT  THIS  POINT  CR-Q) .LT.ACIR.LT . (H*RS 
XAR=  ( (Q*QJ  -  (R*R»  *AC  IRSQ)  /  ( 2.  Q*Q> 

YAR=SQRT (ACIRSQ- (XAR*XAR)  ) 

IF  .XAR.GT.J.Q)  ALP  HA  =  AT AN (YAR/XAR) 

IF  (XAR. £0.0.01  ALPHA=FI/2.J 
IF  (XAR.lT.O.OJ  ALPHA=PI-ATAN(YAR/(-XAR)  I 
GO  TO  103 


OtT 121b 

DtTi22b 
DtT123u 
OtTli'tC 
DcTitpc 
DtTl2bb 
Dt  T 127  u 
Uc  T 12e  0 
Oc T129l 
OtT I3uu 
Uc.Tl3U 
UET132Q 
DcTl33b 
UcT134« 
DcT 135u 


AT  THIS  POINT  €R—  Q ) .GE.ACIR  DtT13o0 

ALPHA=PI  OtT 137  U 

GO  TO  133  DET1380 

DcTl39b 
DcT 1400 

AT  THIS  POINT  Q.GT.R  0£Tl41w 

ALPHA=ASIN(R/Q)  UET1420 

BET  A=Q . ]  OET l43o 

RAOMAX=RTH£RM2  DcTl440 

CALL  EXTRACT  (X1.Y1,X2,Y2,IALPHA.R,Q.TSPT,X»Y ,N»YS,T, ALPHA, RTHERM20tTl450 
l.BETA)  D2.T140L 

IF  (BETA. EQ. 3.0)  SECTOR=u;C  DET1470 

IF  (BETA.  GT.  0.(1)  S£CT0R=8£TA*RTHcRM2*RTH£RN2  QtT1430 

IF  (BETA.LT .0.0)  STOP  DET149L 

IF  (NPTS.EQ.OJ  GO  TO  120  OtT150o 

IF  (NPTS.LT .0 )  RAOMAX=X(-NPTS)-a  OcTlSli 

IF  (NPTS.LT. 0)  NPTS*-NPTS  DtTl520 

OET AREA =TRITSYM(X»Y ,NPTS) ♦SECTOR  0£Tl53b 

RETURN  DLT154U 

DcTlbp J 


IF  (R.GT .RTHERM2)  GO  TO  13D 
RA3MAX=RTHERM2 
0ETAREA=PI*RTHERM2*RTHERM2 
RETURN 

AT  THIS  POINT  (R.GT.RTHERM2) 

IN0EX=NUH0AT  A(ITYPE) 

TS“T*ALAG(DSPT, 0(1, ITYPE) ,S(1, ITYPE) .INDEX) 

RBOP=BAKUP  (R»T  »TSPT ) 

RMAX= AHAX1 ( RTHERH2 .RBOP) 

RAOMAX*RNAX 

OET  AREA  =  PI3RNAX*RMAX 

RETURN 

FORMAT  ( 1H1 » 48HSUBR0UTINE  QtTAPEA  NUCLEAR  LOOKUP  -  (Q+OSPT)  = 
1.2.3H  ♦  ,F6.2,4H)  *  ,F6.2,23H  NM «  HH-RE  DISHIN  =  ,Fo.2,3H  NH/I 


UcTl560 
OtT 157  u 
UtT153b 
0ET159U 
OtTloOO 
OtTlblO 
OtT 162b 
OET1E33 
OtTlbHb 
OcT  165b 
OtTlbbU 
OET167  b 
GtTlbOu 
Ot  Tlb9 0 
(,F60cTl700 
OcT17ib 


70 


l 


153 

FORMAT 

(1H 

i 1 IX* 1 3HM ISSlL 

E  TYPt  , 

12, 5H  OF  « 12 ,32H  TYPE(S) 

AGAINSOlT 172  - 

IT  AIRCRAFT 

TYPE  ,12/) 

DET173G 

163 

FORMAT 

(1H 

,15X,22HYI£LO 

OF  MISSILE  TYPE  ,  12/  ,2GX,  Fb.  0  ,«*H 

KT/ 1 

UlT  17**G 

170 

FORMAT 

( 14 ( /« IX)  ,  14X » 16HSU8RQUT I N£  SABERCM/) 

DcTl75u 

180 

FORMAT 

(1H 

, 20X, 21HDATA  INPUT  TO 

SABERCM) 

OETl7b. 

130 

FORMAT 

cm 

,26X,F5.2,26H 

PSI 

BLAST  OVERPRESSURE) 

CtT 177  u 

200 

FORMAT 

(1H 

» 2 5X,F6 • G » 1EH 

KT 

YIELD) 

UET1760 

210 

FORMAT 

(1H 

, 25X, Fb , 0  * 24H 

FEET 

TERRAIN  HEIGHT) 

Oc  T l79u 

220 

FORMAT 

«1H 

, 25X; F6. 0 , 22H 

FEtT 

BURST  HEIGHT) 

DET 180  it 

230 

FORMAT 

(1H 

,25X,Fb.Q,27H 

FEET 

AIRCRAFT  ALTITUDE/) 

DtnaiL 

240 

FORMAT 

(IK 

,15X*22HSASERCM  OUTPUT 

FOLLOWS) 

UET182  0 

250 

FORMAT 

(39H 

*****  SABERCM  PROBLEMS  DETECTED  ****♦, iiH  IPROB1  = 

1) DtTl63u 

260 

FORMAT 

(1H- 

, 18X,91H  A  SUMMARY  OF 

DATA  OUTPUT  FROM  SABERCM 

UStU 

8YDcTl84w 

1  subroutine 

detarea  in  computing 

LETHAL  ARtA/26X,29HLETHAL 

0VtRPRtDtT185u 

2SSURE  RADIUS  =  ,£lb.8,16H 

NAUTICAL  MILES/53X,2H=  ,cl6.8,6H 

FtcT/OETlObu 

331X.24HTIME 

OF  SHOCK  ARRIVAL  =  ,E 

16.8.9H  MINUTES/ 53 X, 2H=  , 

Lib. 8 

•  90ET 187  u 

4H  SECONOS//) 

DtT 188  U 

270 

FORMAT 

(1H1 

, 1 5X, 1 8HSUBROUT INE  SNAPTCM/) 

0tTl89u 

28  0 

FORMAT 

(1H 

,20X,21HDATA  INPJT  TO 

SNAPTCM) 

DET 1900 

290 

FORMAT 

(1H 

,2bX,F5.Q ,8H 

CAL/CM, 3H**2,16H  THERMAL  tNERGY) 

DET191U 

300 

FORMAT 

(1H 

,25X,F6.0,J8H 

KT 

YIELD) 

DET 1920 

310 

FORMAT 

(1H 

,25X,F6«C *27h 

FEET 

TERRAIN  HEIGHT) 

DlT 1930 

320 

FORMAT 

(IK 

, 25X,Fb. O  *25H 

FEET 

BURST  HEIGHT) 

UlT 1940 

330 

FORMAT 

(1H 

, 2  5X, Fb. 0 , 30  H 

FEET 

AIRCRAFT  ALTITUDE) 

DETl96u 

340 

FORMAT 

(1H 

,2 5X »F6 • Q  ,  31 H 

FEET 

HAZE  LAY lR  HEIGHT) 

DET19bu 

353 

FORMAT 

(1H 

,25X,F6.1,33H 

MM  MG 

HATER  VAPOR  PRESSURE) 

DcT 197u 

3b0 

FORMAT 

(1H 

,25X,F6.1,44H 

MILES 

VISIBILITY (U.S. ,  STATUTE  MIL£DlT198U 

IS)) 

DET199U 

370 

FORMAT 

(1H 

,25X,F6.2,31H 

(ALBEDO)  GROUND  REFLECTANCE) 

UETtuu u 

380 

FORMAT 

(1H 

,25X,Fb,2,26H 

(BETINO)  SHOULD  Bl  1.0/) 

DlT Zulu 

390 

FORMAT 

(1H 

,15X,22H SNAPTCM  OUTPUT 

FOLLOWS) 

DET2120 

40B 

410 

420 


433 


10 


FORMAT  (39H  ***** 

FORMAT  ( 39H  ***** 

1RU  E. ) 

FORMAT  (1H-,18X,91H 
t  SUBROUTINE  OETAREA 
2  RAO 1 US  =  »E16.8»16H 


SNAFTCM  PROBLEMS  OtTtCTtO  ****♦, 11H  IPROB2  =  i)OcT2L3u 
SNAPTCM  PROBLEMS  DETECTED  ***** .17HNEWPRUB  =  .TD£T2u4b 

OcT2t5u 

A  SUMMARY  OF  DATA  OUTPUT  FROM  SNAPTCM  USrD  CVOETZubu 
N  COMPUTING  LETHAL  ARLA/ZbX .24HLETHAL  TP  RMALUET2u7u 
NAUTICAL  MILES/48X,2H=  ,£lb.8,oH  FllT//)  UlT2l8o 


FORMAT  (1H1.13Q  €1 H*  )  ,//,7H  ACIR  = ,E16. 6 , // ,1X, 130 (1H* ) ) 
END 

FUNCTION  TRITSYM  (X,Y,N. 

DIMENSION  X(l>,  Y(l) 

TRITSYM=0.0 
DO  10  J  =  2,N 

TRITSYM=TRITSYM+(X(J-1)*Y  «  J> »  -  (X(JI*  Y(  J~ll> 

CONTINUE 

TRITSYM=ABS (TRITSYM) 

RETURN 

END 


DET2  090 
UcT21u«‘ 


TRI 

TRI 

TRI 

TRI 

TRI 

TRI 

TRI 

TRI 

TRI 


SUBROUTINE  EXTRACT 
1THERM2* BETA) 
DIMENSION  RADSQ(4 ) 


(X1,Y1,X2,Y2,IALPHA,R,CI,TSPT,X,Y,NPTS,T,ALPHA,RlXT 

tXT 

EXT 


1  u 
20 
30 

Gw 

5u 

DU 

70 

8  u 

9u* 

10 

20 

3u 


71 


11 


20 


31 


41 


50 

61 

C 


DIMENSION  X(l),  mi.  Kllll)  11(11)  X2(l),  1(2(1) 

EXT 

OATA  PT/3. 141592653589793/ 

lXT 

5u 

i=: 

tXT 

DU 

K=0 

LXT 

7  O 

RSQ=R**2 

cXT 

8- 

QSQ=Q**2 

lXT 

9u 

T  HE  T  A  =  Q  •  1 

LXT 

11 0 

DEL T  As ALPHA/ 130 .0 

LXT 

110 

RTHERSQ=RTH£RH2*RT  KERM2 

tXT 

120 

IF  (Q.EQ.R)  GC  TO  190 

LXT 

13  o 

IF  (Q.LT.R)  GO  TO  220 

lXT 

1**0 

1=1*1 

tXT 

150 

STHET=SIN(THETA) 

tXT 

16  0 

CTHET=COS(TH£TA) 

LXT 

17  u 

C1=Q*CTH£T 

LXT 

ldu 

STSQ=STHtT**2 

LXT 

19u 

C1A=RSQ-QSQ*STSQ 

lXT 

200 

IF  (CIA. LT. 0.0)  GO  TO  30 

...  LXT 

210 

C2=SQRT (CIA) 

lXT 

22  u 

R1=C1*C2 

LXT 

230 

R2=C1-C2 

tXT 

2**Q 

IF  (T.GT.0.0)  R1C=BAKUP (R1*T*TSPT) 

LXT 

25  l 

IF  (T.GT.0.0)  R2C  =BAKUP (R2  *T  » TSPT) 

LXT 

260 

IF  (T.EQ.0.0)  R1C3R1 

LXT 

27  u 

IF  (T.EQ.0.0)  R2C=R 2 

EXT 

281 

X2 (I ) =R1C*CTH£T 

LXT 

2du 

Y2(I)=R1C*STH£T 

LXT 

3u  u 

X1(I)=R2G*CTHET 

LXT 

310 

Y1(I)=R2C*STHET 

LXT 

320 

IF  (K.EQ.i )  GO  TO  40 

...  LXT 

330 

THETA=THETA*OELTA 

LXT 

3<*u 

IF  (THETA. LT. ALPHA)  GO  TO  Id 

tXT 

35u 

1=1*1 

LXT 

360 

K=1 

cXT 

37  w 

STH£T=SIN(ALPHA) 

LXT 

380 

CTH£T=C03(ALPHA) 

LXT 

39u 

R1sQ*CTHET 

LXT 

*♦00 

R2=R1 

LXT 

<♦10 

GO  TO  20 

LXT 

42u 

DO  5Q  J=1,I 

LXT 

■+3u 

X(J)=X1 (J) 

LXT 

*♦<+  0 

Y(J)=Y1 ( J) 

LXT 

♦  3  0 

X(I*J)sX2(I“J*l) 

LXT 

46u 

Y(I*J)=Y2(I-J*1) 

LXT 

<♦7  o 

CONTINUE 

LXT 

480 

M=2*I 

LXT 

Odu 

DO  70  J=1.H 

LXT 

5u  0 

IF  <(((X(J)-Q)**2)*(Y(J)**2)).GE.RTHERSa>  GO  TO  75 

lXT 

510 

NPTS=J-1 

LXT 

52o 

IF  (NPrs.GE.l)  GO  TO  ICC 

lXT 

53u 

AT  THIS  POINT  (NPTS.EQ.Q) 

EXT 

54* 

72 


c 

THERMAL  CIRCLE  CONTAINS  PETAL  LOCUS  -  RETURN  TO  OETAREA  WITH 

tXT 

5?u 

c 

NPTS.EQ.O  ANO  USE  THERMAL  RAOIUS 

LXT 

563 

RETURN 

eXT 

57  b 

73 

CONTINUE 

t.XT 

5d» 

c 

tXT 

59- 

c 

AT  THIS  POINT  THERE  IS  NOT  A  SINGLE  POINT  OF  THE  OVeRPREbiURt 

tXT 

b3  u 

c 

LOCUS  WHICH  LIES  EITHER  UN  OR  INSIDE  OF  THc.  THERMAL  CIRCLE. 

tXT 

bib 

c 

THO  POSSIBILITIES  tXIST, 

tXT 

b2u 

c 

(1)  THE  OVERPRESSURE  LOCUS  CONTAINS  THE  THERMAL  CIRCLc. 

EXT 

o3t 

c 

12)  THE  OVERPRESSURl  LOCUS  DOES  NOT  CONTAIN,  RATHER  LIES 

c.XT 

b+3 

c 

OUTSIOE  OF  THE  THERMAL  CIRCLE 

tXT 

65- 

c 

EXT 

b6- 

c 

IF  X(M) .L£. (Q-RTHERM2)  THEN  12)  HOLDS 

EXT 

b7  L 

c 

IF  X(M).GE. (Q  +  RTHERM2)  T  He  N  (1)  HOLDS 

tXT 

b6G 

c 

tXT 

o9L 

IF  (X (M) ,GE. (Q+RTHERM2))  GO  TO  93 

tXT 

73b 

c 

EXT 

7it 

c 

AT  THIS  POINT  (2)  HOLDS 

tXT 

72u 

GO 

BET  A=PI 

EXT 

73b 

N5TS=M 

LXT 

7  +  - 

WRITE  (6,390) 

lXT 

75b 

RETURN 

lXT 

7o  u 

c 

EXT 

77b 

c 

EXT 

733 

93 

B£TA=G.O 

tXT 

79U 

WRITE  (6,433) 

tXT 

630 

NPTS=-M 

tXT 

610 

RETURN 

lXT 

62b 

c 

EXT 

630 

133 

NR=4 

eXT 

643 

C 

EXT 

63  U 

r* 

AT  THIS  POINT  THE  OVERPRESSURE  LOCUS  INTERSECTS  THE  THERMAL  CIRCLttXT 

6o3 

C 

THE  POINT  GIVEN  BY  X(NPTS) , Y(NPTS)  LIES  OUTSIDc  OF  THE  THERMAL 

EXT 

673 

C 

CIRCLE  ANO  THE  POINT  GIVEN  BY  X ( NPTS  + 1) , Y (N?TS+1>  LIES  INSIDE  OF 

tXT 

66  u 

c 

THE  THERMAL  CIRCLE.  THE  REMAINING  TASK  IS  TO  FIND  BETA. 

EXT 

69u 

c 

THE  CONDITION  HOLDS  THAT  (l.LE.NPTS.LE. (M-l) ) 

LXT 

93  3 

c 

MUST  ESTABLISH  WHETHER  OR  NOT  ( (NPTS+3) . GT.M) 

lXT 

910 

4# 

EXT 

92b 

IF  ((NPTS+3). GT.M)  GO  TO  143 

EXT 

93b 

RAOSQ (4) =( (X(NPTS)_Q)**2) + (Y (NPTS) **Z) 

lXT 

9+3 

RAOSQ (3 ) = ( (X (NPTS+1)-Q)**2)+(Y (NPTS+ 1) **2) 

EXT 

950 

RAOSQ (2) =( (X(NPTS+2)-Q)**2)+(Y <NPTS+2>++2) 

tXT 

96  w 

RAQSQ(l)=<  (X(NPTS(3)-Q)"2)  +  <Y  (NPTS  +  3 >++  2) 

EXT 

973 

c 

EXT 

96b 

IF  ((RAOSQ(l) .EQ.RADSQ(2)) . ANO .(RA0SQ(2).£Q.RADSQ(3)))  STOP 

EXT 

993 

IF  (RAOSQ(l) .EQ.RAOSQ(E) )  GO  TO  11C 

txTiasu 

IF  (RAOSQI2) . EQ. RAOSQ (3 ) )  GO  TO  13C 

tXT lwlO 

c 

cXTibEy 

M31=M+1 

EXT  103  0 

X(MPl)=X(NPTS+3) 

c.XT  lu43 

Y  (MP1 ) = Y (NPTS+3) 

tXT  lt5b 

73 


XMPl+l)  =  X(NPTS+2> 

EXT lu6b 

Y  (MPl+l)sy (NPTS+2) 

EXT1Q70 

X(NP1+2)=X(NPTS+1) 

EXTKtl.. 

Y(MPl+2)=Y(NPT  S+l ) 

t  XT  1l9i> 

XMP1  +  3)=X(NPTS> 

EXT  110  u 

Y(MP1+3)=Y(NPTS> 

EXT  1110 

X1NT- ALA  G(RTH£RSQt  RAOSQtX (MPl) ,NR) 

EXT112u 

YINT=ALAG(RTH£RSQ,RADSQ,Y (MP1) ,NR) 

EXTllOt, 

GO  TO  153 

EXT 114u 

c 

£XT115u 

c 

AT  THIS  POINT  RAOSQ(l)  EQUALS  R40SQ(2) 

EXT 116b 

113 

X  (M  +  2  )  =  X  (NPTS+2) 

EXT117J 

Y  (M+2 )  =  Y (NPTS+2) 

lXTIIOl 

123 

X(H+4)=X (NPTS) 

lXTIIBu 

Y  (M+4)=Y (NPTS) 

EXT1230 

X(M+3)=X (NPTS+1 ) 

t XT  121b 

Y (M+3 )=Y (NPTS+1) 

£XT122u 

X(M+1)=X  (NPTS+4) 

lXT 123u 

Y(M+l)=Y(NPTS+4) 

EXT  1240 

MPi=M+l 

EXT 1253 

RAOSQ(l>=( (X(MP1)-Q)**2)+(Y(MP1)**2) 

EXT  1260 

XINT*ALAG(RTHERSQ,RAOSQ,X (MP1) ,NR) 

LXT1274 

YINT=ALAG(RTHERSQ,RAOSQ,Y ( MP1 ) *  NR) 

EXT  126  w 

GO  TO  150 

EXT129w 

C 

EXT13J0 

*% 

AT  THIS  POINT  RA0SQ(2)  EQUALS  RAJSQ(j) 

EXTl31u 

130 

X(M+2)=X(NPTS+3> 

EXT  1320 

V(M+2|=Y(NPTS+3) 

EXTl33k 

RAOSQ(2 ) =RAOSQ (1) 

EXT  134i< 

GO  TO  123 

EXT1350 

C 

t XT  1360 

C 

EXT137  u 

143 

RADSQ (1 )*((X(M)-Q)**2)+(Y (M)**2) 

EXT13UU 

RAOSQ(2)*((X(M-l)-Q)**2)+(Y(M-l>**2) 

EXT139- 

RAOSQ(3)=((X(M-2)-Q)**2)+(Y(M-2)**2> 

tXTl+OU 

RADSQ(4)*( (X(M-3)-Q)**2)+(Y (M-3)**2) 

EXTltii. 

X(H+D  =  X(M-1) 

EXT  1 '  1 

Y(M+1)=Y (M-l) 

EXT 

X(M+2)=X(M-2> 

b 

Y(N+2)=Y (M-2) 

b.4?L 

X (H+3 )  =  X (M-3) 

EXT140L 

Y (M+3 )  =  Y  (M-3) 

CXT147  0 

XINT=ALAG(RTHERSQ,RAOSQ,X(M),NR) 

EXT l4tt  u 

Y INT  =  ALA  G(RTHERSQ»RAOSQt Y (M),NR) 

tXT 149u 

C 

EXT  153  0 

C 

MUST  ESTABLISH  WHERE  THE  POINT  GIVEN  BY  XINTtYINT  LIES  WITH 

tXTlslb 

C 

RESPECT  TO  THE  THE  POINT  GIVEN  BY  Q.J.O 

cXT  l52li 

c 

EXT  1530 

150 

IF  (I.EQ.1000)  GO  TO  343 

EXT  164b 

IF  (XINT.LT.Q)  GO  TO  170 

EXT 155d 

IF  (XINT.GT.Q)  GO  TO  163 

EXT156L 

74 


c 

c  WE  HAVE  (XINT.EQ.Q) 

B£TA=PI/2.G 
GO  TO  18) 

C 

c  WE  HAVE  (XINT.GT.Q) 

160  8ETA=ATAN(YINT/<XINT-Q>) 

GO  TO  133 
C 

c  WE  HAVE  (XINT .lt.q) 

170  beta=pi-atan<yint/(q-xinT)) 

c 

c 

is j  npts=npts+i 

X(NPTS)=XINT 

y<npts)=yint 

NPTS=NPTS+1 

X(NPTS)=Q 

Y(NPTS)=0.0 

RETURN 

c 

c 

c  AT  THIS  POINT  Q.EQ.R 

3  THE  Q.EQ.R  ALGORITHM  FOLLOWS 

C 

193  TW3R=2.3*R 

200  1*1+1 

STHET=SIN(THETA) 

CTHET=COS(THETA) 

Rl=TWOR*CTHET 

210  IF  (T.GT.Q.O)  R1C=BAKUP(R1.T,TSPT) 

IF  (T.EQ.0.0)  R1C=R1 
X1(I)=R1C*CTHET 

yki)=ric*sthet 

c 

IF  (K.EQ.l)  GO  TO  250 

THETA=THETA+OELTA 
IF  JTHETA.LT. ALPHA)  GO  TO  230 
1=1+1 
K=1 

STH£T=SIN( ALPHA) 

CTHET=COSCALPHA) 

Rl=TWOR*CTHET 
GO  TO  210 
C 
c 

c  AT  THIS  POINT  Q.LT.R 

C  THE  Q.LT.R  ALGORITHM  FOLLOWS 

C 

220  1=1+1 

STHET=SIN (THETA) 


EXT157L 
EXT  1980 
tXT 159a 
EXTlbOL 
EXT  lb)  L 
tXTlb20 
EXTlb3u 
EXT  lb**u 
tXTlbbw 
EXTlboO 
tXTlb7u 
EXT lb8  3 
tXTlb9u 
tXT 17  j  o 
EXT I7lt 
S.XT172C 
EXT 173l 
i.XTl7  +  L 
tXT 1750 
tXT176t 
J.XT177*. 
LXT178L 
E.XT179L 
EXT  lbu  u 
tXTl&lj 
EXTlb2u 
EXT18JL 
tXT16+w 
EXTIBat 
tXTlbot 
EXT  137  0 
EXT183U 
EXT 189u 
EXT 19uL 
EXT 1910 
_  EXT192*. 

EXT  1930 
EXT194U 
EXT1950 
c.XT19b  J 
EXT  197  L 

_  EXT I98u 

C.XT199J 
tXTS’OO  0 
EXT2biC 
EXT2U2L 
tXT  2o3L 

_  EXT20+0 

tXT205t 
EXT  2uDU 
LXT2u7L 


75 


23  0 


C 


240 


C 

c 

250 


260 

C 

C 

C 

c 

c 

c 

c 

c 

0 

c 

c 


c 


CTH£.T=COS  ( THET  A) 

C1=Q*CTH£T 

ClA=RSQ-(QSQ*STH£T+STH£T) 

IF  (CIA.lT.Q.G)  GO  TO  24G 
C2=SQRT (CIA) 

R1=C1+C2 

IF  (T.GT.0.0)  R1C=BAKUP(R1 » T » T  SPT ) 

IF  (T .EQ.O.C)  R1C=R1 

X1(I)=R1C*CTHET 

Y1(I)=R1C*STHET 

IF  (K.EQ.l)  GO  TO  25G 
THETA=THcTA+OELTA 
IF  (THETA.LT. ALPHA)  GO  TO  220 
1=1+1 
K=1 

STHET=SIN(ALPHA) 

CTHtT=COS (ALPHA) 

ri=(q*:thet)+sqrt(rsq-(Qsq*sthlt*sthet)) 
GO  TO  230 


K=C 

KM=Q 

Kr-G 

OO  260  J=1,I 
X( J)=X1(I-J+1) 

Y ( J)  =  Y1  ( I- J+l ) 

OISQ=((X(J)-Q)**2)+(¥(J)**2) 

IF  (OISQ.LE.RTHERSQ)  X2(J)=-l.y 
IF  (Di.SQ.LcRTH£RSQ)  KM=KM+1 
IF  (OISQ.GT.RTHERSQ)  X2(J)=1.0 
IF  (OISQ.GT .RTHERSQ)  KP=KP+1 
IF  (J.EQ.l)  GO  TO  260 
IF  (X2( J).NE.X2(J-1))  K=K+1 
CONTINUE 


f.XT20OQ 
tXT2u9a 
lxT  210  l 
c.XT  2liu 
tXT  2120 
EXT 2x3 i 
tXT 214b 
LXT2130 
tXT 2lo  u 
LXT  217  u 
LXT218U 
EXT  2190 
tXT 22uw 
LXT221o 
lXT222u 
EXT  2230 
CXT22+0 
tXT22»- 
LXT  22ou 
tXT227  0 
tXT22du 
EXT229w 
EXT  2 3b u 

_ EXT  231 0 

C.XT2320 
EXT  233u 
tXT  23  +  t 
EXT2350 
EXT  236u 
EXT23/C 
C.XT23S0 
LXT239  0 
EXT  2*t0  j 
tXT  2*lb 
EXT  2420 
EXT  243  0 


M=I 


THE  VARIABLE  K  CONTAINS  THE  NUHBER  OF 
LOCUS  CROSSES  THE  THERMAL  LOCUS. 


IF 

KP  = 

(  +  1) 

THEN 

ALL 

POINTS 

OF 

THE 

OUTSIDE 

OF  THE 

THE 

RMAL 

IF 

KM  = 

(  +  1) 

THEN 

ALL 

POINTS 

OF 

THE 

EITHER  ON  OR  INSIOE  OF 


EXT  2h40 
EXT  24bu 
tXT246w 

TIHtS  THAT  THE  OVERPRESSURE  EXT2470 

EXT2480 

EXT249U 

OVERPRESSURE  LOCUS  Lit.  tXT25bO 

CIRCLE  (K=0)  EXT  2510 

OVERPRESSURE  LOCUS  LIE  EXT25211 

THE  THERMAL  CIPXLE  (K=„)  LXT253h 

EXT254u 

EXT2550 


IF  (RTHERM2.GT .0.0)  GO  TO  270 

AT  THIS  POINT  RTH£RM2=C.O  WHEN  ENTERED  FROM  ABOVE 


EXT  2sbG 
tXT  257  U 
EXT2580 


76 


c 

c 

c 

27  0 


c 

c 

263 


L' 

c 

c 

L 

c 

290 


c 

c 

513 

C 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NSTS=-I 

8£TA=0.Q 

RETURN 


AT  THIS  POINT  RTHERH2<GT<0<U 
IF  (K.GT.O)  GO  TO  300 
IF  (KN.Nc.I)  GO  TO  290 


AT  THIS  POINT  KM=UI)  WHEN  ENTEREO  FROM  ABOVE 

THE  OVERPRESSURE  LOCUS  CONTRIBUTES  LITTLE  OR  NOTHING 

NPTS=0 

RETURN 


AT  THIS  POINT  KP  =  ( ♦  I >  WHEN  ENTEREO  FROM  ABOVc 

THE  THERMAL  CIRCLE  IS  CONTAINED  3Y  OR  LIES  OUTSIDE  OF 

CONTAIN  THE  OVERPRESSURE  LOCUS 

M--I 

IF  <X<I) <GT. <Q*RTHERM2>)  GO  TO  93 
GO  TO  SO 


AND  UUcS  NOT 


IF  (K.GT.l)  GO  TO  370 


AT  THIS  POINT  THE  MOST  TRIVIAL  CASES  INVOLVING  NON -INTERSECT I ON 
OF  THE  LETHAL  LOCI  HAVE  BEEN  DETECTED  AND  ISOLATED. 

THE  NEXT  MOST  SIMPLE  CASE  IS  THAT  OF  FIRST  ORDER  INTERSECTION, 
FIRST  ORDER  INTERSECTION  OCCURS  WHEN  THE  POSITIVE  HALF  OF  T He. 
OVERPRESSURE  LOCUS  INTERSuCTS  THE  THERMAL  CIRCLE  ONLY  ONCt. 

THE  POSITIVE  HALF  OF  THE  OVeRPRESSURE  LOCUS  HAS  BEcN  GENcRATtO 
ABOVE  BY  THE  Q.LT.R  OR  THE  D.EQ.R  ALGORITHM. 

THE  COORDINATES  OF  THE  OVERPRESSURE  LOCUS  ARE  CONTAINED  IN  THE 
ARRAYS  X  AND  Y.  THE  POINT  GIVEN  3Y  COORDINATES  X(1).Y(1)  la 
NEAREST  THE  CENTROiO  -  THE  POINT  GIVEN  BY  MI), YU)  IS  FARTHeST 
FROM  THE  CENTROID. 


FIRST  ORDER  INTERSECTION  OCCURS  WHEN  K=1 

FIRST  ORDER  INTERSECTION  MAY  BE  CONSIDERED  BY  SeNSING  THE  VALUES 
CONTAINED  IN  THE  ARRAY  X2<J)  FOR  J=1 , 2, . . . , i ,  THE  CONTENTS  OF 
THE  ARRAY  X2(J)  SHOULO  RESEMBLE  (FOR  FIRST  ORDER  INTERSECTION) 
ONE  OF  THE  FOLLOWING  CASES, 

CASE  (1)  +X.+1, << .,  +  1 ,  — 1 , — 1 , <  <<,—1 
CASE (2)  — 1,— 1,<< <  < ,,,  +  1 

CASE  <3  )  +1 ,  —  1 , — 1 ,...,  —  1 
CASE  <4 )  -1,-1,.. .  ,-l,U 
CASE (5 ) 

CASE  <6 )  -!,♦!, __ 


CASES  < 3 )  AND  <4)  ,  ALL  OF  OVERPRESSURE  LOCUSttXCEPT  FOR  ONe.  POINT) 


EXT  269  . 
EXT 260  3 
t.XT2bl». 
c.  XT  2  b2j 
tXT  2  b/,  i 
EXT2b40 
tXT2bal 
tXT2bo- 
tXT 2b7u 
tXT266i# 
EXT269J 
tXT27t,U 
EXT271L 
L  XT  272  J 
tXT277  L 
c.XT27*»u 
lXT279„ 
f.XT27au 
tXT277u 
tXT276.» 
tXT  279u 
tXT  2bu  j 
t XT  261 u 
LXT  262 l 
4.XT263  J 
lXT  2  0tu 
EXT  263  Q 
EXT  26bu 
CXT287- 
tXT288y 
EXT2890 
EXT29ua 
tXT29lu 
EXT  292  j 
c.XT  293  0 
tXT29*.u 
tXT295u 
LXT296U 
C.XT2970 
lXT298o 
lXT  299U 
tXT30 Jj 
LXT301Q 
tXT3S2u 
t.XT3u3u 
L  XT  Skitb 
LXT30b0 
EXT3i)bu 
EXT3u7u 
c.XT 3u6  u 
tXT3090 


77 


1 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

310 

c 

c 

tj 

c 

c 

c 

w 

c 


320 

339 

C 

C 

340 

C 

C 


c 


IS  EITHER  ON  OR  WITHIN  THE  THERMAL  CIRCLE 
IF  TKM.EQ. <1-11  *  GO  TO  282 


c.  XT  3lu  u 
tXT3ll j 
EXT  Zich 
t  XT 3l3o 


CASES  (5)  AND  (6i ,  ALL  OF  OVERPRESSURE  LOCUSftXCEPT  FOR 
IS  OUTSIOE  OF  THE  THERMAL  CIRCLE 
IF  (KP.NE.  <I-m  GO  TO  310 

THE  FOLLOWING  IF  IS  TRUE  FOR  CASE  <o» 

IF  ( <X2<1).EQ. <-1.6) ) .ANO. <X2<I) .EQ. (+1.0)1)  GO  TO  290 

IT  IS  ESTABLISHED  INOIRECTLY  THAT  WE  HAVE  CASE  (5) 

K=I 

IF  IX(I).GE.Q)  GO  TO  91 
GO  TO  80 


CASES  (1)  ANO  <2 }  REMAIN  TO  BE  DETECTED  FOR  K=1 


THE  FOLLOWING  IS  TRUE  FOR  CASE  (1) 

IF  <<X2U).EQ.<+1.Q)).ANQ.  (X2 (I) .EQ. (-1.0) ) )  GO  TO  60 


CNc  POINT)  EXT  3i.4u 
C.XT313  * 
lXT  316* 
-  T3l7u 
EXT  318  0 
EXT319 * 
L  XT  3  26  u 
tXT321a 
tXT3220 
EXT323u 
EXT  324* 
EXT3236 
EXT  32o  u 
EXT3270 
tXT3280 
EXT  329b 
lXT336* 
cXT33iL 
t XT  332 
EXT33J* 


AT  THIS  POINT  CASE  <21  REMAINS 

CASE  <2 )  IS  ALMOST  IDENTICAL  TO  CASE  (1)  AFTtR  INTtRCHANGING 
X(JI  WITH  XU-J+1*  ANO  Y I J  >  WITH  Y<I-J+1I  FOR  J=l,2,... 

THE  COMPUTATION  OK  BETA  IS  DIFFERENT  THOUGH. 

VARIABLE  I  IS  SET  EQUAL  TO  1002  AS  A  FLAG  SO  THAT  THE  BETA 
COMPUTATION  IS  PERFORMED  AT  STATEMENT  390  RATHtR  THAN  AT  9* 
M-I 

OO  320  J*1,I 

IF  <  (I-J+1)  .LE.J)  GO  TO  33* 

TEMP=X< J» 

XU)  =  X<I-J  +  i) 

XII-J+ll =TEMP 
TEMP=Y(jr 
Y(J)  =  Y(I-.)+l> 

Y (I-J+1) STEMP 
CONTINUE 
1=1000 
GO  TO  6 J 


lXT33-»  j 
EXT333* 
c.XT33o  J 
C.XT3370 
LXT 33du 
tXT  339* 
lXT3l0  0 
LXT3-.1* 
CXT3426 
c.XT3h3  * 
LXT3446 
LXT345 u 
tXT3*+o * 
LXT3470 
L.XT348* 
EXT  3492 
tXT  33 j * 
tXT35l* 
EXT3520 
tXT*530 


IF  (XINT.LT.Q)  GO  TO  3E0 
IF  ( XINT.GT . Q)  GO  TO  353 


EXT354L 
LXT  353* 
tXT35o* 


WE  HAVE  (XINT.EQ.u.C) 
BETA=PI/2. 0 
GO  TO  183 


tXT  367  * 
tXT358u 
tXT  3390 


l XI  3d j * 


78 


c 

ME  HAVE  (XINT.GT.0.0) 

tXT  3ol 0 

350 

BET  A=PI- AT  AN  < Y INT/ <  XINT-Q) ) 

tXT  362u 

GO  TO  180 

tXT  3o3u 

C 

tXT  3  oh  o 

c 

ME  HAVE  <XINT .LT.Q) 

tXT  365  0 

360 

BETA=ATAN<YINT/<Q-XINT)> 

tXT3bo J 

GO  TO  180 

EXT 3b7 u 

C 

tXT3od  j 

C 

tXT3b 9a 

C 

HULTIPLE  INTERSECTION 

tXT37u j 

370 

MRITE  <6,410)  K»Q»R»T ,RTH£RH2 

tXT37lo 

DO  380  U  =  1,I 

tXT  372o 

MRITE  <6,420)  X<J) ,Y<J) ,X2 <J) 

c.XT373o 

300 

CONTINUE 

cXT37hO 

c 

EXT  375  >i 

c 

THE  FOLLOMING  IS  A  TEMPORARY  APPROXIMATION  FOK 

MULTIPLc.  INTc.RSc.CT  «LXT37du 

NPTS=C 

EXT377o 

RETURN 

EXT  3 78  0 

c 

tXT379J 

390 

FORMAT  < 75H  OVERPRESSURE  LOCUS  LIES  OUTSlUt  OF 

ANO  DOES  NUT  lONT AIEXT 3bj o 

IN  THE  THERMAL  CIRCLE) 

EXT381- 

403 

FORMAT  <70H  FROM  SUBROUTINE  EXTRACT,  O VEkPktSSURE  LOCUS  CUNTAINStXT3820 

1  THERMAL  LOCUS  .* 

EXT  383« 

413 

FORMAT  <1H-,33HMULTIPL2  INTERSECTION  MHtRt  K  = 

,I3/1H  ,4  IciQi 8  ,5XLXT3<Jhw 

1)/) 

EXT385L 

420 

FORMAT  < 1H  ,£16.8«5X,£lo<d«5X,F5.1) 

EXT  38o0 

END 

tXT387  J 

FUNCTION  BAKUP  <R,T,TSFT) 

BAK  Xc 

COMMON  /DISTIME/  S <99, 2) , D < 99 , 2) ,NUMOATA <2> , C V < 2) ,TI < 2 1 , ITYPt, NT YP BAK  2o 

lE.JTYPE.MTYPE.RAOMAX 

BAK  3  0 

I.*0EX=NUMQATA  <ITYPE» 

BAK  40 

IF  <TSPT.LE.S<INOEX,lTYPE) )  GO  TO  13 

BAK  5o 

C 

HRIT  E  <6 , 5)  TSPT,NUMDATA<ITYPE) 

BAK  Do 

CALL  TIMEGEN  <TSPT) 

BAK  70 

13 

INDEX^NUMDATA  <ITYPE) 

BAK  8t 

OSPT=ALAG<TSPT,S  <1,ITYP£)  ,D<1.,ITYPE)  .INDEX) 

BAK  9  o 

RMAX=DSPT*R 

BAK  10  o 

IF  <RMAX. LE • D  < INDEX, IT YPE ) )  GO  TO  20 

BAK  110 

C 

MRITE  <6,15,  RMAX  *  NUMOATA  <ITYPE  ) 

BAK  12o 

CALL  DATAGEN  < RM A X ) 

BAK  13o 

20 

IN3EX  =  HUMDATA  <ITYPE) 

BAK  140 

TMAX=ALAG<RMAX,D<1, ITYPt) ,S<1,ITYPE) .INDEX) 

BAK  150 

T2=TM AX-T 

r>  a  MS., 

Unr\ 

IF  <T2.G£.TSPT)  GO  TO  30 

BAK  17o 

C 

MRITE  <6,26)  T2.TSPT 

BAK  X8o 

BAXUP=0, 0 

BAK  190 

RETURN 

BAK  2b o 

30 

IND?X*NUMDATA (ITYPt) 

BAK  21o 

OAKUPsAL AG <T2,S<1, ITYPt), 0<1, 1  TYPE) .INDEX )-DSPT 

BAK  220 

IF  (BAKUP. LT. 0.0)  BAKUP=3.0 

BAK  230 

RETURN 

BAK  240 

79 


V 


BAK  250 

END  BAK  col' 

SUBROUTINE  OATAGEN  (R)  OAT  i.c 

COMMON  /OISTIME/  S (99 .2 > , 0 < 99 , 21  ,NUM JAT A  (2 ) ,C V (El » TI <2 ) , IT YPt .NT YPUAT  2u 

IE, JT YPE, HTYPt  *RAOMAX  OAT  30 

NUMDATA (IT YP£  )  ^NUMDATA  (IT YPE) *1  OAT  40 

IN3EX=NUM0ATA (ITYPE)  OAT  5c 

S(INOEX,ITYP£>=S(INOEX-l,ITYP£)*TI(ITYP£)  UAT  Dc 

0(INO£X,ITYP£)=(CV(ITVPE)*TI(ITYP£> )40(INDEX-i,ITYPi)  OAT  71 

IF  (R.GT.D(INDEX,ITYP£>>  GO  TO  13  DAT  60 

RETURN  DAT  9c 

ENO  OAT  low 

SUBROUTINE  TIMEGEN  (TIME)  TIG  lu 

COMMON  /OISTIME/  S(99,2)«0(99,2) , NUMDATA (2) ,CV (2) »TI (2 )»ITYPt*NTYPTIG  20 

1E,JTYPE,MTYPE,RA0MAX  TIG  3c 

NUMDATA (ITYP£)=NUMDATA(ITYP£)*1  TIG  4c 

IN3£X=MUN0ATA (ITYPE)  TIG  50 

S  (INOEX  *  IT YPE ) =S ( INOEX- 1*  I  TYPE  )4TI(ITVPc)  TIG  t>0 


D (INOEX, ITYPE >=(CV( IT YPE) *TI (IT YPE) >+U(INOEX«l 

,ITYPE) 

TIG 

7. 

IF  (TIME. GT.S (INDEX, ITYPt) )  GO  TO  13 

TIG 

6c 

RETURN 

TIu 

90 

ENO 

TIG 

100- 

FUNCTION  ALAG  (XV,X,Y,NXY) 

ALG 

1c 

c 

_ 

ALG 

2c 

c 

GENERAL  PURPOSE  FOUR-POINT  LAGRANGIAN  INTERPOLATION  FUNCTION. 

ALG 

3c 

c 

GIVES  RESULT  OF  INTERPOLATION  OF  TABLE  OF  Y  AS 

A  FUNCTION  OF  X 

ALG 

40 

c 

AT  ENTRY  POINT  XO, 

ALG 

5L 

c 

NOTE  -  X  ARRAY  MUST  BE  IN  ASCENOING  ORDER. 

ALG 

Du 

c 

FJNCTI3N  BY  HARRY  M.  MURPHY,  JR.,  30  NOVEMBER 

1966. 

ALG 

7 1 

c 

ALG 

60 

DIMENSION  X(NXY),  Y(NXY) 

AlG 

9u 

c 

alg 

lOw 

13 

L=2 

ALG 

1*0 

M=  NX  Y- 1 

ALG 

12c 

XO=XV 

ALG 

130 

IF  (2-M )  20,60,80 

ALG 

14c 

C 

ALG 

15c 

2  J 

I=(L+M)/2 

ALG 

loo 

IF  (L-I)  30,70,20 

ALG 

170 

3) 

IF  (X(I)-XO)  50,70,40 

alg 

16  c 

43 

M=I 

ALG 

19u 

GO  TO  20 

ALG 

23  u 

53 

IF  (X(I+l)-XO)  60,70,70 

alg 

210 

63 

L  =  I 

ALG 

22c 

GO  TO  20 

ALG 

231; 

C 

ALG 

24b 

ALAG=Y(I-l)*(XO-X(I))  MX0-X(I4  1M*(X0-X(I*2>  I  /(  (X (1-1) -X (I) I 
in-'<(mnMX  (i-i»-x(i*2)»  »*Y(u*(X0-x(i-ii»*(x0‘X(itin*  (XQL 

2  )  )  /  (  (X(I)-X(I-l)  1*  {X(I>-X(mil*(X  (I)-X(I+2))  H-Y(IH)*(XU-X( 

3  (xo-xm  »*(xo-x(i+2ii/((X(H-i»-x(i-iii*(X(i+i>-x(in*(x(iM» 

4>>  >♦¥ (I*2)*(XO-X  (I-ll  IMXO-X  (I  ))*(XO-X  (!♦!>)/(  ( X (1*2 ) -X ( 1-1 ) 


MXU-ALG  250 
'X (1+2 ALG  2ou 
1-1»)*ALG  27b 
•X (I>2 ALG  26b 
>  * ( X ( 1 ALG  29c 


80 


ooo  non  ocnoomiooo  *ooo  a>  o 


3 


a 


5+2)-X(I)l*(X(I*2)-X(I*l))l  ALG 

RETURN  ALG 

ALG 

HRITE  (6,90)  NXY, XO  AlG 

ALAG-C.3  ALG 

RETURN  ALG 

ALG 

ALG 

FORMAT  (26H0FUNCT ION  ALAG  ERROR.  N  =,I3,7H,  ARG  *,E12.*,/1X)  AlG 

EMO  AlG 

SUBROUTINE  SNAPTCM  (IPROB2)  SNP 

SNP 


THE  ORIGINAL  VERSION,  SNAPT,  MENTIONED  BELOW  HAS  BEEN  MOUIFl_J  BY  SNP 
CRAIG  E  MILLlR,  CAPT,  AFWL(SAB),  KIRTlAND  AFB,  N.  HEX.,  2h?W1x  SNP 
EXT  2C51  TO  OETERMINE  GNLY  THE  THERMAL  RANGE  SOLUTION  WHICH  IS  ONtSNP 
SPECIFIC  USE  OF  THE  ORIGINAL  MULTIPURPOSE  PROGRAM.  SNP 

SNP 

PROGRAM  SNAPT (INPUT, OUTPUT, TAPE5=INPjT,TAPtb=QUT?UT,FlLMPR, PUNCH)  SNP 

SNP 

SNAP-T  WtAPON  EFFECTS  PROGRAM  FOR  THtRMAL  cNERGY  SNP 

SNP 

COMMON  /PASS/  SZ, A2, OEL A, AM AX , BET INO ,BET A , W ,RHO , VIS, PZ , HSL , HTt .HBLSNP 
1,VEL, ALPHL, TMPL.WUAL.CPL, XLEL, CRAFT , 03URST ,M BURST ,ATM,CAL,TEFFI  SN3 
COMMON  /TABLES/  XX  (18)  ,  YY  (5  )  ,  ZZ  (5 , 18 )  ,  XXX  (12 I  ,  YYY  (1j  )  ,  III  (I  0  ,  lx  '  ,  X.SNP 


1XXX (19) , YYY Y ( 20 ) , ZZZZ (23 , 19) , CXI (13 ) ,CX2 ( d) , B (8 ,l3)  SNP 

COMMON  /INFO/  RS , W SA.CANGP ,WSH , TD, ANG, FIR.FV, FW.DELU.DELL , THSTb , T ASNP 
1T0,FHBH,SLBR,SAV£,TEFF  SNP 

COMMON  /INDCTR/  INO, KOI  SNP 

REAL  MBURST  SN3 

»«,,,,*,«*»**********«******  *»***SNp 

KOUNT-t.  SN? 

1  CALL  READ  (KOUNT)  SNP 

SR=( (N/CAL)**0. 5)  ♦5280.0  SNP 

SN? 

FOLLOWING  RELATIVIZES  A/C  ALTI TUBE  TO  SEA  LEVEL  BY  ADDING  GROUND  SNP 

HEIGHT  SNP 

AZ=AZ+HTE  SNP 

SN3 

OIFF= ABS (AZ- ( HBL+HTE ) )  SNP 

IF  (SR.LT.DIFF)  SR=I . 01*0 IFF  SNP 

SZ=SQRT ($R**2-DIFF**2)  SNP 

OELA  =  AMAX  =  BET  A  =  0  «  0  SNP 

VEL=ALPHL=TMPLxO .0  SNP 

WUAL=CPL=XLEL=L«3  SNP 

CRAFT =DBURST=0.0  SNP 

MBURST  =  3  SNP 

ATM=TEFFIsJ.J  SNP 

SNP 

IF  (TEFFI.EQ.0.)  GO  TO  10  SNP 

TEFF=T£FFI  SNP 

GO  TO  20  SNP 


33  u 
31  u 
323 
330 
3<*l 
35b 
3oi> 
370 
3db 
39u- 
1C 
20 
3b 
<tu 

5b 
60 
7  u 
db 
9b 
100 
ill 
12b 
13  b 
1h0 
150 

16b 

17  u 
Id  C 
19C 
20  u 

21b 
22  0 
230 

2>,b 
26b 
26b 
270 
2dw 
290 
3u  b 
310 
32b 
330 
30b 
350 

36  x 

37  u 
3db 
390 

4  U  U 
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13  T£FF=T£FU(W,H8L+HT£)  SN3  42o 

23  KOl-O  SNP  430 

IN0=0  SNP  44c 

WRITE  (6.301  SNP  490 

WkITE  (6.40)  CRAFT  »  WU AL» VEL, AMAX  » ALPHL  »CPL ,SZ  »  BcTA ,T MPL , XLc4 , AZ  »  6c  SNP  4og 

1TINO, DEL  A, CAL  SNP  470 

WRITE  (6.50)  W,ATM,VIS»HBL»OAY»PZ, HTE, RHO ,  HbL » T£FF , LOURS T . M6URST  SNP  460 

WRITE  (6.60)  SNP  49c 

C  *********************************  SNP  5ul 

C  CALL  THERHL  SNP  510 

CALL  THERML  (IPRCB2)  SN?  52. 

c  »♦*,»*♦,,,»**♦»**♦********♦***»**  bNP53v( 

Z  FOLLOWING  RELATIt/IZES  A/C  ALTITUJE  TO  GROUND  SNP  >40 

AZ=AZ-HT£  SNP  55g 

C  *♦♦**♦♦♦*******♦**#•*♦♦*********♦  SNP  &ot 

RETURN  SNP  57i 

C  KOJNT=KOUNT*l  SNP  56g 

C  GO  TO  1  SNP  >9u 

C  SNP  oj. 

C  SNP  blu 

C  4  FORMAT  ( 1H1 . 135 ( 1HX) . // )  SN3  b2c 

C  «*«««»*««•«*«**•»*»*«***»•**»*»*«  i,NP  o3Q 

C  «..****♦***♦**♦*****•*♦*••*♦*♦****  SN3b4u 

C  7  FORMAT  ( IX, 135 (1HX) , ///)  SNP  o5l 

C  ,,,,,,  4  ,  SNP  b00 

C  SNF  o7 o 

33  FORMAT  (1H  )  SNP  bdg 

40  FORMAT  (6X.13HPANEL  DATA  ,50X,19HR£C£IVER  PARAMETERS, //, 6X .6HCRASNP  69u 

1FT  =,£l4.7,lQX,aHWTL  * , £14. 7 ,9X, BHFTStC  =,£14. 7.10X.6HMAXALT  SNP  7ug 
2=,E14.7,/,bX, 3HALPHAL  =  , c 14. 7 , 10 X, AH 6TUL  =,cl4.7 .9X.8H1STHR  =,ESNP  7 lg 
314.7, lux, 6HTILT  a ,£1 4. 7 , /,6X , SHTMPl  » ,tl4 . 7 , 1 3X, 8HXLEL  =,£l4SNP  72. 

4.7,9X,8H1STALT  =, E14. 7, 10 X , SHBcTAIO  =,cl4.7,/b9X,8HDALT  =, tin. 7, SNP  73* 

510X.3HCAL  =,£14. 7///)  SNP  740 

53  FORMAT  ( oX, 17  HSOURCE  PARAMETERS, 4bX, 22HATMOSPHERIC  PARAMcTcRS,//,oSN3  75. 

1X.8HYIEL0  =,E14.7,41X,8HATM  =,E14.7,1QX,«HVISBLc  =  ,ci4. 7,/,6X,SN?  7 6. 
28HBURST  =  ,  El  4.7 , 41X,  8H0AY  = ,  £14.  7  ,l«jX  ,«MVAPOR  =,£14.7,/ ,bX,8HSNP  77. 

3TARGET  = , E14. 7 ,41X , 8H ALBEOO  =,£14.7, 10X, SHHAZc.  =  ,cl4. 7  ,/6X , 8HTH  SNP  76. 

4EFr  =,£14.7/6X,8H0BURST  = , £14. 7/SX , 8HMBURST  =,cl4.7//>  SN?  79. 

63  FORMAT  (1H  )  SNP  ou 

END  SNP  610- 

SUBROUTINE  THERML (IPR062)  THc  10 

Z  SUBROUTINE  THERML  T He  2u 

COMMON  /PASS/  SZ.AZ.OELA, AKAX.BETIND, BETA, W, RHO, VIS, PZ,HSL,HTc,HBLTH£  30 

i,V£L,AL3HL,TMPL,i('JAL,CPL,  XL£L ,  CRAFT, OBUR  ST, M  BURS  T»ATM, CAL, TtFFI  TH£  4. 

COMMON  /NEEOED/  TP  6  ,TM6,T  M3 ,  TP7  ,  T  M4,  TM9,  TM5,  CON,  PSL  ,  TM6  THc  50 

COMMON  /INFO/  RS, HSA, CANGP , HSH, TO, ANG, FIR.F V, FW, OELU.DtLL , T HST . , T ATHE  bu 

1TG,FH8W,SLBR,SAVE,TEFF  THc  70 

COMMON  /INOCTR/  IND.KOl  THc  6g 

COMMON  /CAN/  CON2  «SZl«  MOM  THE  90 

COMMON  /PROBLEM/  NEKFR08  THc  100 

LOGICAL  N£WPROB  THE  llu 
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J. 


REAL  MBURST 

THE 

12  w 

REAL  X 

THt 

13w 

DATA  TP13.TP9.TP8.TP7,  TPo,  TP5  ,  TP-. , TP3 , TP2  ,TP1 , TO , TM1 ,TM2 , Trtd ,T M4, 

TTHt 

140 

1M5.TM6.TH7, TH8.TH9.TMlC/l.:i+10t 1.0E+9*1. 3t*8.1.6l£*7,l.Ji*otl.b£+aTHc 

15m 

2  •  1*  L  E  +4  *  1  «  3 £♦  3  •  1  .  G £+2  •  1  *0 £+1 » 1  .  3  . 1  •  3 t— 1 •  1* u £—2  *  1* 3c.- 3 , 1  •«l*h •  1  •  u £ 

-THt 

lot 

35,1.3£-6,1.0t-7,1.6£“8,1.3E-9,i. 3E-1 3/ 

THc. 

1  7  y 

WSUBS(X)=2.3*PZ*(1.-10.**(-6.1*X*TM5> > 

THE 

160 

NEHPROB=. FALSE. 

THc. 

19. 

c 

********************************* 

♦THt 

2ut 

K3JNT=3 

THt 

21m 

c 

********************************* 

♦THE 

221 

C0X=~4.57*TM5 

THE 

230 

SZl=S2 

THE 

243 

DB=ABS (OBJRST ) 

THt 

2?u 

1} 

IF  (AZ.LT.HTE)  GO  TO  520 

THE 

260 

TST=HBl/W**(l. 0/3.0) 

THt 

27  m 

RS=238.1*W**C1. 0/3.0) 

THt 

2du 

IF  (TST-177,3)  23.33.3C 

THt 

29u 

20 

THST0=1.3 

THt 

300 

TATO=C.O 

THt 

I.. 

GO  TO  60 

THt 

32 b 

33 

IF  (TST-369.3)  40.43.5t 

THt 

33u 

40 

THST0=6.21*TP6*< (1.0/TST) **3 . 0 -2 . Q*T H8> 

THt 

340 

TAT0=1.0-THSTQ 

THt 

35l 

GO  TO  63 

THt 

36u 

53 

THST0=0.3 

THt 

37  w 

TATQ=1.0 

THt 

38  0 

63 

IF  (TST-183.0)  73.70.8C 

THt 

39b 

73 

FHBH*3.4l*TM3*TST+1.0 

THE 

4U  k 

GO  TO  93 

THt 

41k 

83 

FHBW=1.63 

THt 

420 

S3 

IF  (H-50  3.3  )  100.100,113 

THt 

43  ; 

13  0 

DELL® 1. 0 

THE 

44b 

DtLJ=  0.3 

THt 

45  m 

GO  TO  123 

THt 

460 

113 

0ELL=.95i2-.2287*ALQG(H*Tf13)*. 43*29 

THt 

47  c 

OEL  U" 1,  3” DELL 

THE 

48b 

123 

WSH=MS0B3<HTE) 

THE 

49b 

FH= ( 3  c/2 . ) *(.32/T£FF) 

THE 

530 

133 

IF  (DBIRST.GT.O.)  AZ=HBL 

THE 

51  w 

HSA=WSU3S <AZ ) 

the 

52t 

MOH  =  l 

THE 

533 

IF  (TST-244.0)  140,140,153 

THt 

5*0 

143 

TO  =  300fl.mi2.3*TST 

THr 

550 

GO  TO  16. 

THt 

5ob 

153 

TQ=63C0 . j 

THE 

57t 

163 

FV=1.296*A10G( TO) *.43429-4.426 

THt 

580 

FIR=1,322-1.338*TM4*T0-1.173*TM9*TD**2 

THt 

59b 

QA= ABS (CAL ) 

THt 

bb  u 

173 

HB=HBl 

THt 

61  b 

SLBR®SZ 

THE 

621 

83 


CALL  UPLOM  ( HB,SL  BR , AL  *  BL , CBETl ,CT  HT ,QNL ) 

T He  630 

IF  (NEWPR03)  RETURN 

THt  64  b 

IF  ( KOI « £Q*  1 )  GO  TO  44C 

THt  b5t. 

THI s  ANG 

TH_  oou 

IF  (DELU)  130,190,180 

THt  670 

133 

HB=HBL*RS 

the  68k 

CALL  UPLOM  (HB,SLBR,AU,BU.CBETU,CALP,QNU) 

THt  o90 

IF  (NEXPR08I  RETURN 

THt  7 J O 

IF  (KOl.EQ.l)  GO  TO  440 

THc  710 

ALP* ANG 

THt  72« 

190 

CUsQNU*OcLU 

THE  73L 

CL=QNL*D£LL 

THt  740 

IF  (BET I NO)  240,310,200 

THt  750 

230 

IF  (OELU.EG.Q.C)  GO  TO  210 

THt  7 o u 

BMU= ATAN (SQRT  (1«-CBETU**2 1 /CBtTU) 

THE  770 

213 

BML=ATAN(SQRT <1.-CB£TL«*2)/C8£TL) 

THt  76b 

IF  < (ALP-BMU) .LT. 1.570796326)  GO  TO  220 

THt  790 

BU=Q  * 

THt  6 u u 

IF  ( (THT-BML).LT. 1.570796326)  GO  TO  220 

THt  81b 

BL  =  0  ♦ 

THc  82 j 

220 

IF  (RHO.EQ.Q*. ANO.AZ.EQ. (HBL+HTc) )  GO  TO  230 

THt  830 

BETA=ATAN(  (AL*SQRT(1.0-CTHT**2)*3L*SClRT  (l.ii-CBtTL* 

*2)+CU/CL* (AU*SITHE  <W0 

1N(ALP)«-BU*SQRT (1 , j-CBeTU** 2) ) ) / ( AL*CTHT+ BL*CBtTL*CU/CL* ( AU*C ALP«-BUTHt  85w 

2*:betu)  » ) 

THE  3 6 w 

IF  (BETA.LT.0.)  3tTA=BETA*3. 14159 

THt  67b 

GO  TO  310 

THt  630 

230 

BETA=1. 57295 

THE  6*i» 

GO  TO  310 

THt  9b  b 

C 

MOOIFIEO  INCIDENT  ANGLE  PACKAGE 

THE  910 

C 

THt  92b 

243 

ANGLE=60.0/57,3 

THt  930 

SI0E=1.0 

THc  940 

IF  (BETA-1.5708)  260,260,250 

1  HE  950 

233 

SIOE=2.0 

THE  9ob 

260 

IF  (ALP-ANGLE)  280,280,270 

THt  970 

270 

AL3=(ALP*SIOE* ANGLE) /2.0 

THt  980 

230 

IF  (THT-ANGLE)  300,300,290 

THc  990 

290 

THT  =  ( THT ♦SIDE* ANGLE ) /2.0 

T  He  1C  j b 

330 

C3NTINJE 

THE lo lb 

C 

THtlQEO 

310 

IF  (OELL.EQ.l.O)  GO  TO  320 

THtlo3o 

BMU= ATAN (SORT (1. 0-CBc  TU**2 ) /CBcT J) 

T  Hcl 04o 

323 

BMI.  =  ATAN(SQRT  ( 1. 3 -CBETL**2 ) /CBETL ) 

T  Ht  1 0  5  u 

VERTU=COS ( ALP-BETA) 

THtlOoO 

IF  (VERTU)  330,330,340 

THE107o 

330 

VERfU=Q . 3 

THc. lu  8u 

343 

VERTL=COS (THT -BETA) 

THtlOBb 

IF  (VERTL)  350,350,360 

T  HEil j u 

353 

VERTL=0 .0 

THtlllu 

360 

QEUD=CU*AU* VERTU 

THE112L 

QEUR=CU*BU* ( ABS (COS  (BHU-BETA) ) ) 

TKE1130 

84 


V 


Q£LC=CL*AL*V£RTL  THE114C 

QELR=CL*3L*  (A8S(C0S(8ML-BETA)  >  »  THc.115,. 

QEU=QEUD*QEUR  THtllbC 

QEL=QELO*Q£LR  THtll7t 

Q£=Q£L*QEU  THEllttt, 

AZ<  =  AZ/3  281 .  THtil9« 

HBK=H8L/32fll.  THclZti. 

SZK=S7/328l.  T  Hcl21w 

SZN=SZ*. 003164  T  Hc.1220 

IF  (CAL)  430,430.370  THcl23u 

IF  (A8S  QA-Qi) -O.QiOl*OA)  330,481,480  TH£l24w 

IF  (WUAL.LE.O.)  GO  TO  4G'.  THtl25u 

IF  (AZ.GT. (HBL-HTE+RS) )  GO  10  333  TH£12oO 

CALL  TEMP  (QE.TMP)  THcl27 L 

GO  TO  413  T Hcl2du 

CALL  TEMP  (Q£,TMP»  THtl29t 

GD  TO  410  THcl3uL 

WRITE  (6,530)  AZ.H8L,  AZK,  HBK,  SZ  ,  SZK,  3£TA  ,  SZN,  CL,CU  ,UcL  ,  OcLO.OELR,  QTHt.1310 
l£U,QEUO,OEUR,QA,Q£  THtl320 

GO  TO  423  THc.133l 

WRITE  (6,540)  AZ,CL,SZ,CU,QEL,U£LO,OELR, UtU, UtUO , QtUR, QA ,  d£,  b£T  A ,  TTHc.1 340 
IMP  T  Hcl33  u 

MOM=l  THcliovi 

GO  TO  440  THL137 L 

WRITE  (6,550)  AZ.CLtSZ.CU,  QlL  ,  CEL  O  ,QELR  .  QcU,  U£UD,  Qc.UR,  Qc » BtT  A  THtl38y 

MOM=l  TMcl39u 

AZ= AZ  *D£L  A  THE1-.00 

IF  (AZ.GT.AMAX.OR.AZ.Ed.o.)  GO  TO  45 j  THEIhIu 

GO  TO  133  T Hc1h2u 

HBL=H8L*08  THc1h3^ 

IF  (HBL.GT.MBURST.OR.HBL.tQ.O . )  GO  TO  470  THE144Q 

IF  (TEFFI.GT.O.)  GO  TO  460  THtl45o 

TEFF=T£FU(W,HBL*HT£)  THtl46i, 

SZ=SZ1  THtl‘,70 

GO  TO  IQ  THElndv 

RETURN  THcl^y 

E=,  3  THE153  u 

SSZ=(SZ*SZ* (QE/QA ) **£♦ (AZ-H3L ) *(AZ-H3l)*I (UE/QA)**£*i. 0) )  THclblO 

A=  ( QE/OA  )  *♦£  T H£li>2w 

IF  (SSZ.LT.0.)  GO  TO  490  THtl53y 

SZ=SQRT (SSZ)  THE1S40 

SZN=SZ*. 000164  THE155G 

SZK=SZ73281.  THElbbv 

MOM=MOM*l  T  HE157  u 

IF  (MOM. GT. 100)  GO  TO  510  THclb&i. 

GO  TO  173  TME159H 

IF  (AZ.GE. (H8L4HTE) )  GO  TO  500  THtiblu 

WRITE  (6,560)  AZ  THtl&lL 

...........  v  .  TH£162u 

SZ=SZ1  T  Htlb3  0 

GO  TO  42  THtlbtL 
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o  o  o  o  o  o  o 


sr  at  critical  panel 
$/) 


I?R0B2=1  THtlb6c 

RETURN  THclooC 

.................................  THtlo7£» 

WRITE  (6.570)  AZ  THt.i6tt„ 

.................................  lHtlb9„ 

IF  (D  BURST • LT • C • )  GO  TO  43  THtl7-b 

IPR082-1  THl171 0 

.................................  THtl72w 

RETURN  TH2l73u 

WRITE  (6,580)  THE174* 

RETURN  TH_l730 

WRITE  (6,590)  AZ  ^ti7sn. 

♦THtl77„ 

K3  JNT  =  KOUNT  *1  THtl78u 

IF  (KOUNT.GE.iO)  STOP  THtl790 

............  .......  ..............  ♦Trttiaj. 

.................................  ♦THE181U 

AZ=AZ*HT£  THE1820 

GO  TO  13  THtl63u 

THtlbtC 

THclSSu 

.................................  THtldoO 

*Y  AT  CRITICAL  PANEL  (CAL/CN**2)  at  =,212.3//, IX, 13s(lH*» ,THE187l 

$/)  THc.1880 

TH21890 

THEa9u. 

FORMAT  ( 5 X , 37 HRECE I V£R  ALTITUDE  (FT)  AZ  =,212.6, 5X,27HBUTHcl91u 

1RST  ALTITUDE  (FT)  MBL  =  ,212.5/3<*X,9H(KM>  AZ  =,E12.3,2lX,ilH(KM)  TH._192u 
2  HBL  =«£12«5/6X, 37HCALCULATEQ  HORIZONTAL  RANCt  (FT)  SZ  = ,£12. 5 ,5X .TH21930 
33QHRNGLE  BETWEEN  LOCAL  HORIZONT AL/34X, 9H (KM)  SZ  = ,El2 . 3 ,5X , 56HAND  TH2194U 
4CRITICAL  PANEL  (RADIANS)  BETA  =,£12.5/34X,9H(NM)  SZ  =  ,  1 12. 5// , bX, sTHtI 95u 
52HJNATTENUATEO  ENERGY  IN  LOWER  PHASE  (CAL/CM**2)  Cl.  =  ,  E12 . 3/oX  ,5  cT  He.  1960 
6HUNATTENUATED  ENERGY  IN  UPPER  PHASE  (CAL/CM**2)  CU  = ,E12 . 5 ,// ,6X , T Htl 97y 
765HATTENUATE0  ENERGY  IN  LOWER  PHASE  (CAL/CM**2)  QtLT  Hc.l96« 

fl  =,E12.5,4X,6HQELD  =,E12.5,3X,  6HQELR  *,212.5/ ,6X,65HATTtNUATcO  &NtTHtl*9Q 
9RGY  IN  UPPER  PHASE  (CAL/CM**2)  QEU  =,212.5,4X,bHQtUTHc2cj- 

10  =,E12.5,3X, 6HQEUR  =,E12.5//6X,64HT0TAL  FREE  FIELD  ENERGY  ATCRITITHE2wlU 
tCAL  PANEL  (CAL/CM**2)  QA  =,E12.5/6X,64HT0TAL  ITERATED  tNtRGTHt 202 0 

SY  AT  CRITICAL  PANEL  (CAL'CM**2)  Qt  =,£12.5/)  THc.2u3y 

FORMAT  (6X,  37  HAIRCRAFT  ALTITUDE  (FT)  AZ  =  ,212.  5, 6X  ,s2HUNl  HcZO**? 

.1  ATTENUATED  ENERGY  IN  LOWER  PHASE  <CAL/CM**2)  CL  =  ,212. 5 ,/ , oX, 37HCTK22U6C 
2  ALCULAT  £0  HORIZONTAL  RANGE  (FT)  SZ  =*£12.5* 5X,  52HUNATT  ENUAT  tD  tNtRTHEU’uoi. 
3GY  IN  UPPER  PHASE  (CAL/CM**2)  CU  =  »r'12.5»//  ,  OX  ,65HA  TTtNUA  Tll)  cNtRT  Ht2u7u 
4 GY  IN  LOWER  PHASE  (CAL/CM**2)  QcL  =  ,c.l2.5,4X,bHQtLDTHt2680 

5  -,E12.5,3X,6HQELR  =,E12.5,/,6X,65H4TTENUATtD  ENERGY  IN  UPPlR  PHASTHc2j9i 
6E  (CAL/CM**2)  QEU  =,212. 5,4X,6HQ2UD  =,£12.5,3X,6HQlTHE210L 

7UR  =,E12.5,//,6X,64HT0TAL  FREE  FIELD  ENERGY  AT  CRITICAL  PANcL  (CALTHc2llw 
8/CM**2)  QA  =,E12«5,/,6X,64HT0TAL  ITERATlO  ENERGY  AT  CRU  ICALTHt212u 

9  PANEL  (CAL/CM**2)  QE  =, £12.5, //,6X, 66  HANDLE  BETWEEN  LOCALTH2213S 

S  HORIZONTAL  and  CRITICAL  PANEL  (RADIANS)  BtT  A  =,212.  5,  7  ,©X  ,47H  (UStT H22l*,u 

10  FOR  CALCULATION  OF  HORIZONTAL  RANGE  ONLY)  ,//,6bHGALCULAT£D  TtMPc.THc.215u 


=  * £1 2.5/oX, 5  cT  Htl 96 u 
=,E12.3,//,bX,1Htl97y 
Qc.LlHc.l98u 
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550 


55  j 

57  3 

583 

593 


13 

23 

33 

43 

50 


IRATURE  OF  CRITICAL  PANEL  (UEG-R)  T  M9  =  ,El2.  5  ,/ ,.<6H  (ASSTHcElb. 

$UMING  HORIZONTAL  RECEIVER  AT  SZ) ,//, iX,135 (1H /),//)  T HE217L 

FORMAT  (6X,37HAIRCRAFT  ALTITUDE  (FT)  AZ  = ,tl2. 5 ,3X ,52HUNT Hc2 180 

1ATTENUATEO  ENERGY  IN  LOWER  PHASE  (CAl/CM**2)  CL  -,c.12.5,/,oX,37HHTHc.2193 
2  ORIZONTAL  RANGE  (FT)  SZ  =  ,E12 . 5, 5X  ,  52HUMATT  ENUAltO  lNcRT  Hc.22ii . 

3GY  IN  JPPER  PHASE  (CAL/CM**2)  CJ  =  ,£12.5 ,//  ,  bX  ,65HATT£NUAI  tO  tNcRTHc.221u 
4 GY  IN  LOWER  PHASE  (CAL/CM**2)  QtL  = , cl2 . 5 , AX , bHatL0THn222 0 

5  -*  E12. 5  , 3X, 6HQELR  =  , £12. 5  , /,  6X  ,o5HA TTENUATEO  ENERGY  IN  UP?i.R  PHASTHt.223. 
6£  (CAL/CM**2)  QeU  =,El2.5,4X,6HQEU0  =  ,£12.5,3X,bHU_THiZ2-ib 

7UR  =,El2.5,//,6X,b4HT0TAL  FREE  FIELD  ENERGY  AT  CRITICAL  PANi.1.  (CALTHi.225b 
8/CM**2>  QE  =*E12.5»//»6X,6oHANGLE  BETWEEN  LOCAL  HORIZONTAL  ATHc22ot 

9ND  CRITICAL  PANEL  (RADIANS)  BETA  = , E12 .5 , // ,1A , 135 (IH/) ,//)  Thk227. 

(46H  RECEIVER  BELOW  LOWtR  LIMIT  OF  lNVuLOPE  AT  AZ= ,  FiU .  w  ,5HTHu2c6b 

TH2229u 

(46H  RECEIVER  ABOVE  UPPER  LIMIT  OF  cNVtLOPt  AT  AZ=  ,F*u .  y ,  5HTHt23b  3 

THE2  3lt 

3Z  ITERATIONS  GT  1CJ)  THc232b 

RECEIVER  BELOW  TERRAIN  AT,F10.i, 2oH  FT*  AL  TlTUJi  lNCRITHt233u 

THE2343 
THL23at- 
lu 


FORMA) 

1  ~T, ) 

FORMAT 
l  FT.) 
FORMAT 
FORMAT 
1MENTED.  ) 
END 

SUBROUTINE 


( 21  H 
(26H 


UPLOW  (HB.S3R.A«d*CBET,CANG*QN) 


UPL 


COMMON  /PASS/  SZ,AZ*D£LAiAMAX,BETIND*dETA*W*RHO.VlS*PZ*HSL,HTE*HBLUPL  2*. 


1  ,VEL,ALPHL,TMPL,WUAL,CFL,  XL£L,  CRAFT  *  J3URST,MBUk.;T,  ATM,  CAL 

, TcFF i  UPL 

30 

COMMON  /INFO/  RS, WSA, CANGP ,  WSH,TO,ANG,Fiiu,FV,FW,  DEL J  * DELL 

tTHSTb  ,TAUPL 

4b 

1T0,FHBW,SLBR,SAV£,TEFF 

UPL 

5. 

COMMON  /NEEOEO/  TP6 ,TM8 ,T M3 ,TP 7  ,  TM4 , TH9,TM5,CON,PSL , TM6 

UPL 

bu 

COMMON  /CAN/  CON2,SZl,MOM 

UPL 

70 

COMMON  /INDCTR/  INC, KOI 

UPL 

Ov. 

COMMON  /PROBLEM/  NEWPROB 

UPL 

9u 

LOSICAL  NEWPROB 

UPL 

lb  b 

REAL  MBURST 

UPL 

113 

R£AL  X  *  Y  ,  Z 

UPL 

12b 

DSUBL  (.( )  =SL8R**2+  ( AZ-X)  **2 

UPL 

13l 

COSAT <Y)=(AZ-Y )/SQRT (Db JBL (Y) ) 

UPL 

143 

WSUBS  3*PZ*(l.-10.**(-o.l*Z*TM5>) 

UPL 

1»0 

TST=RU/W**(1. 0/3.0) 

UPL 

loo 

CA^:  ?=COSAT(HTE) 

UPL 

l7u 

CANG=COSAT (HTE+HB) 

UPL 

183 

ANG= ACOS (CANG) 

UPL 

190 

IF  (ANG)  13,20,23 

UPL 

23  b 

ANG=ANG+3.1416 

UPL 

21l 

CONTINUE 

UPL 

223 

IF  (TST-278.0)  30,40,40 

UPL 

230 

K=3 

UPL 

243 

GO  TO  50 

UPL 

253 

K=2 

UPL 

tOb 

QN=QNFN(DSU8L (HTE+H8) , CANG  ,K) 

UPL 

270 

TLUP=HTE+HB4.5*RS*CANG 

UPL 

28l 

CALL  PHASE  ( T H ,T V , TPH ,TPV , TLUP , CANG) 

UPL 

29u 

IF  (ABS (CANG) .LT.. 001)  GO  TO  63 

UPL 

3b  u 

WD= ( WSA-W5U8S (TLUP) )/CANG 

UPL 

3lu 

87 


so 


GO  TO  70 

UPl 

3cu 

59 

M0=1.615*TM4*PZ*  <SL8R-RS>*<10.** (-6 . i*TM5*TLUP > *16 < -6. 1 

*T  M5*AZ ) UPL 

33u 

1) 

UPL 

3hu 

71 

CALL  TBLKUP  <MO,TD,TH,l) 

UPL 

35u 

IF  <NEMPROB)  RETURN 

UPL 

3oa 

IF  <A8S<CANG).LT..oQ1>  GO  TO  80 

UPL 

37a 

IF  <A8S<CANGP).LT«.CQl)  GO  TO  103 

UPL 

3b« 

MOJ= (MSA-MSH) /CANGP*WSUBS (HB)-WSH 

UPL 

390 

GO  TO  113 

UPL 

40  0 

63 

IF  (A8S (CANGP) .LT..0O1)  GO  TO  90 

UPL 

Hit 

MOP= (WSA-XSH) /CANGP+HSUBS <H8)-WSN 

UPL 

42  u 

GO  TO  113 

UPL 

43u 

90 

M0P=1.615*TM4*PZ*<  <H8*<lu .**<-6.1*TM5*HB)*10.**<-6.1*TM6-*HTl>>  >  +  <SUPL 

44  0 

1QRT <SL8R*SL8R* <AZ-HTc > * <A Z-HT£ ) > * <10 .** <-b.l*  T M5* AZ> +10 .*♦ 

<-b. i*TMUPL 

45  k 

25*HTEm> 

UPL 

4bu 

GO  TO  113 

UPL 

*,7  L 

133 

M0P  =  1.615*TM4*PZ*SQRT<SLBR*SL8RMAZ-HTE)*<AZ-HT£>  >*<10.**< 

-6.1*TM5UPL 

460 

1*AZ) *10 •*♦  <-6.1*TM5*HTtmwSUBS<H8)-KSH 

UPL 

49„ 

110 

CALL  TBLKUP  <MOP , TO ,TMP ,1 ) 

UPL 

5k0 

IF  <NEMPROB>  RETURN 

UPL 

510 

IF  <TST-278. 01  120,150,150 

UPL 

520 

123 

K=2 

UPL 

53c 

CONl=57.295*ANG 

UPL 

54w 

IF  <CONl-9Q.Q)  140,130,130 

UPL 

55k 

130 

CON1=90.3 

UPL 

5d0 

1*3 

COM2  =  SORT < OSUBL  <HTE*HB))/RS 

UPL 

57k 

IF  <CON2 , LT.2 • )  GO  TO  230 

UPL 

580 

GO  TO  160 

UPL 

550 

150 

K=3 

UPL 

600 

CONl=<AZ-HTE)/HB 

UPL 

bio 

CON2=SLBR/HB 

UPl 

62o 

163 

CALL  TBLKUP  <CON2, CONI, GAM, K) 

UPL 

630 

IF  <NEMPR08)  RETURN 

UPL 

6*0 

IF  <TST-273.0>  18G,170,170 

UPL 

b50 

170 

CBET=COSAT  <HTE-HB) 

UPL 

obk 

GO  TO  190 

UPL 

b7  k 

iao 

CBET=GOSAT  <HTE-3.0*RS) 

UPL 

b8  O 

190 

A=FIR*TH*TM*F  V*TV 

UPL 

69k 

0=  <FIR*TPH*TMP*FV*TPV )  *RHCJ*GAM/C  BET 

UPL 

7u  k 

RETURN 

UPL 

7lt 

200 

WRITE  <6,210) 

UPL 

720 

SZ-SZ1 

UPL 

73  a 

K01  =  l 

UPL 

74a 

RETURN 

UPL 

75u 

c 

UPL 

7o0 

c 

UPL 

770 

c 

UPL 

78k 

210 

FORMAT  <20H  RANGE  LESS  THAN  2RS) 

UPL 

79k 

END 

UPL 

600 

SUBROUTINE  PHASE  <TH,TV,TPH,TP V,TLUP,CANG) 

PHA 

1U 

COMMON  /PASS/  SZ,AZ,OELA,AMAX ,B£TINO, BETA, W,RHO, VIS, PZ,HSl 

> HTfc  »H8lPHA 

2k 

88 


11 


23 


31 


o] 


53 


63 


1»VEL,ALPHL,TMPL,WUAL ,CPL»  XLEL .CRAFT , 0 BUR ST »Mt)URST .ATM.CAL.TlFFI  PHA  3- 

COMMON  /INFO/  RS  ,  WSA  .CANGP  ,  WSH  ,  T .) ,  ANG.FIR  ,F  V  ,FH,  QELU  .DELL  ,  THSTo  ,  T  APHA  *0 

lTO.FHBW.SLBR.SAVE.TEFF  PHA  50 

COMMON  /NEtOEO/  TP6 ,TM6 , TM3 , TP  7 , TM4 , TM9, TM5 ,CON ,PSL, TMo  PHA  o. 

REAL  MBURST  PHA  70 

REAL  X.Y.Z.ZZ  PHA  8- 

EXPON(X,Y,Z,ZZ)=£XP(X*(EXPICON*Y»-EXP(CON*Z))/ZZ)  PHA  90 

EXPON1 (X.Y.Z.ZZ) =EXP(X*(EXP(CON*Y)oEXP  (CON*Z ) )  /ZZ)  PHA  10- 


IF  <ABS(CANG).L£..001)  GO  TO  80 
IF  (T'JP.LT.HSL)  GO  TO 
IF  .AZ.LT.TLUP)  GO  TO  10 
ThAZE=l • 

TVlS=EXPON  ( -•  0875.TLUP.AZ.CANG) 
TPHAZE=EXP0N(-16.4/VIS.HT£,HSL,CANGP) 
TPVIS=E XPON( -.0875, HSL, AZ, CANGP) 

GO  TO  123 

IF  (AZ.LT.HSL)  GO  TO  21 
THAZ£=1. 

TVIS=EXPON(,0  875.AZ.TLUP.CANG) 
TPHAZE=£XPON (-16. 0/ VIS, HTE, HSL, CANGP) 
TPVIS=EXP0N(-.C875,HSL,AZ,CANGP) 

GO  TO  123 

IF  (ABS(CANGP) .LE..Q01)  GO  TO  30 
THAZE=EXP0N(16.4/VIS,AZ,HSL,CAN6) 
TVIS=EXPON(.0875, HSL .TLUP.CANG) 
TPHAZE=EXP0N(-16.4/VIS,HTE,AZ,CANGP) 
TPVIS=1. 

GO  TO  123 

THAZE=£XP0N(16.U/VIS,AZ,HSL,CANG) 

TVI5  =  EX-’ ON  (.0875,  HSL,  TLUP.CANG) 
TPHAZE=E  XPON1 ( -3. 75*TMO*SL8R/ VIS, HTE , 
TPVIS=i. 

GO  TO  123 

IF  (AZ.LT.TLUP)  GO  TO  fcj 
IF  (AZ.GT.HSL)  GO  TO  50 
THAZE=EXPON (-16.0/VIS.TLUP .AZ.CANG) 
TVIS=1. 

TPHAZE=iXP0N<-l6.4/VIS,HTc  ,AZ, CANGP) 
TPVIS=1 • 

GO  TO  123 

THA.E=EXP0N<-16.4/VIS,TLUP,HSL,CANG) 
TV.S=EXPON (-. 0875, HSL, AZ.CANG) 
TPHAZ£=E  XPON ( -16.4/VIS, HTE.HSL.CANGP) 
TPVIS=EXPON (-.0875, HSL, AZ.CANGP) 

GO  TO  123 

IF  (ABS(CANGP) .LE..101)  GO  TO  73 
T HA ZE  =?: X PON  (16. 4/ V IS,  AZ, TLUP.CANG) 
TVIS=1. 

TPH AZE=E XPON (-16. 4/VIS, HTE, AZ, CANGP) 
TPVIS=1. 

GO  TO  123 


PHA  110 
PHA  12 j 
PHA  130 
PHA  1O0 
PHA  15l 
PHA  160 
PHA  170 
PHA  Adi 
PHA  190 
PHA  2a- 
PHA  210 
PHA  22L 
PHA  23- 
PHA  2o- 
PHA  250 
PHA  2oa 
PHA  270 
PHA  280 
PHA  29- 
PHA  3-u 
PHA  31b 
PHA  32- 

,1.)  PHA  33 1. 

PHA  3o- 
PHA  35- 
PHA  36o 
PHA  370 
PHA  38- 
PHA  39- 
PHA  o:- 
PHA  410 
PHA  02- 
PHA  03a 
PHA  ooy 
PHA  o5  0 
PHA  4oi) 
PHA  07- 
PHA  08- 
PHA  490 
PHA  5a. 
PHA  51- 
PHA  52- 
PHA  530 


89 


70 

THAZE=EXPON (16«4/7IS,AZ*TLUP»CANG) 

f  HA 

9h  j 

TVIS=i. 

■*HA 

iju 

TPHAZ£=EXPONl  (-3. 75*T  M4*.?L  BR/ V  IS  ,  AZ  ,  HTE  ,1 .  » 

PHA 

Soi 

TPVIS*i. 

PH  A 

97y 

GO  TO  120 

PHA 

?6w 

83 

IF  (ABS (CANGP) .LE..GC1)  GO  TO  103 

PHA 

&9  <i 

IF  <(AZ*TLUP)/2..LT.HSU  GO  TO  93 

PHA 

by  o 

THAZ£=1.C 

PHA 

bit 

TVIS*EXPONl <-2.*TH6*(SLBR-RSI ,AZ,TLUP,1. 1 

PHA 

o20 

TPHAZE=EXPON (-16, 4/VIS, HTE  »HSL » CAN6° ) 

PHA 

o3u 

TPVIS*EXPON(-.0875,HSL,AZ,CANGP> 

PHA 

b4L 

GO  TO  120 

PHA 

b9y 

93 

T HAZE*; X PON  1  (-3,75*TM4*(SL8R-RS)  /VIS,TLUP,AZ,1.) 

PHA 

ooO 

T VIS=1. 3 

PHA 

67« 

TPHAZE=£XP0N(-16.4/VIS,HT£,AZ,CANGP) 

F:iA 

68y 

T3VIS  =  1«  3 

f  M 

b9li 

GO  TO  120 

PHA 

700 

133 

IF  ((AZ*TLUP)/2..LT.HSU  GO  TO  113 

PHA 

7lw 

THAZ£*1. 

PHA 

723 

T  VI3=£XP0N1 (-2,*TM6*(SLBR-RS) ,AZ,TLUP,i.i 

PHA 

73u 

TPHAZE*!. 

PHA 

7h0 

T?VJ5=EXP0N1(-2.*TM6*SLBR,AZ,TUIP,1.1 

PHA 

7by 

GO  TO  120 

PHA 

7b  j 

113 

THAZ£*EXPONl (-3,  75#TM4* (SLBR-RS) /VIS , TLUP  , AZ , 1. » 

PHA 

773 

TVIS*1. 

PHA 

780 

TPHAZE=£XPONl  (-3.  75*TM4*SL8R/ VIS ,HT;,AZ»i») 

PHA 

79- 

TPVIS*1. 

Pha 

8j  c 

123 

TH=THAZE*.3+,7 

PHA 

8i  vi 

TV=.3*THAZE*TVIS*,7 

PHA 

82  0 

TPH=.3*TPHAZE+,7 

PHA 

8  30 

TPV=.3*TPHAZE*TPVIS+,7 

PHA 

84L 

RiTJRN 

PHA 

89  3 

ENO 

PHA 

6o0 

FUNCTION  QNFN  (X,Y,K> 

QNE 

10 

COMMON  /PASS/  SZ, AZ.OELA, AMAX, BET INO, BETA, W.RHO, VIS, PZ.HSL.HTc, 

HBLQNt 

C; 

1,  VEL,  ALPHL,TMPL,HUAL,CPL,XLEL,  CRAFT,  3BURST,MBL'RST,  ATM,  CAL,  TtFFI 

QNE 

3; 

COMMON  /NEEOEO/  TPb,TM6.TM3,TP7,TM4,7M9,TM9,CON,PSL,TMb 

QNc 

*♦0 

COMMON  /INFO/  RS, NSA, CANGP, WSH, TO, ANG, FIR, FV,FH,DELU,DcLL,  THSTw 

,TAQNE 

9  v, 

1T0,FHBH,SLBR,SAVE,TEFF 

QNt 

be 

REAL  MBURST 

ON; 

7  u 

TEMP* 8, 569992*TEFF*W*TP?/X 

ONE 

80 

IF  (K-2)  ?0 , 20 ,10 

QNc 

9y 

10 

CUN=2.C/3.0*FH 

ONE 

lu  u 

GO  TO  33 

ONE 

lie 

20 

CUN=l.Q 

ONE 

12  0 

33 

QNFN=TEMP*(TAH*CUN*THSTQ*FHBW*COS (2,3/3, u*ANG) ) 

QNt 

13L 

return 

QNt 

1h3 

ENO 

QNc 

19u ' 

SUBROUTINE  TBLKUP  (X,Y,Z,K) 

TBL 

10 

COMMON  /PASS/  SZ, AZ,D£ LA, A MAX, BET IND, BE TA,H,R HO, VIS,9Z,HSL,HTt, 

HBLTBL 

20 

l, VEL, ALPHL.TMPL, HU AL,CPL,XL£L, CRAFT, JBURST, MBURST, ATM,  CAL, TEFFI 

TBL 

3Q 

90 


l 


COMMON  /INFO/  RS.HSA.CANGP.WSH.TD, ANG,FIR,FV,FW,Dc.LU,OELL, 
ITS, FHBW.SLBR, SAVE, TEFF 

COMMON  /TABLES/  XX  ( 18) ,YY (5) , 22  (5, 16 ) , XXX C12) , YYY ( lu )  » 222 < 
1XXX(19)  ,mV(20)  ,ZZZZ<20,19>  ,CX1(13),CX2<8),B<8,13) 

COMMON  /NEEOED/  TPb , TM8, TM3 , TP 7 , TM4, T M9, T Mb, CON .PSL.TMb 
DIMENSION  XI (2) 

REAL  MBURST 

GO  TO  <20, 30, 4G, 50, 60) ,  K 

X.t(l)=X 

XI i 2 ) =Y 

CALL  DINT  <XX,YY,ZZ,5,io,Xl(l),Xl<2>  ,Z) 

GO  TO  70 
X1(1)=X 
XI (2) =Y 

CALL  DINT  (XXX,YYY,ZZZ,1G,12,X1(1) VX1(2> ,Z) 

GO  TO  73 
X1(1)=X 
XI <2 )=Y 

CALL  DINT  (XXXX,YYYY,ZZZZ,2u,19,Xi(l),Xl(2),Z) 

GO  TO  7t 

X1(1)=X 

X1(2)=Y 

CALL  OINT  (CXl,CX2,B,8,13,Xi (1) ,  XI (2) ,Z) 

GO  TO  70 
X1<1)=X 
XI (2 ) =Y 

CALL  OINT  <XX1,XY1,XZ1,19,2.X1  (1) ; X1C2) ,Z) 

RETURN 

F.ND 

FUNCTION  TEFU  (YIELD, H08) 

THIS  FUNCTION  PROVIDES  THE  UNATT ZNUA TED  THERMAL  EFFICIENCY 

SPECIFIC  YIELO  AND  BURST  ALTITUOE 

H=H0B*3.348E-4 

T£FU=EXP  ((-3. 57971233  34E-1-8. 6  U4357359Ct-3*H*7.l3bdtl0u68E 
t. 254800 9 745E-5*H*M*H+6. 4232050 535E-8*H*H*H*M) *2. 3b2585G 93) 
RETURN 
END 

SUBROUTINE  ATMOSP  < AZ ,TA, PA.CA ,S$G  ,ROSL , ATM) 

RQ5L*. 002378 

IF  ( AZ- 36089, 0 )  2Q.2U.3C 

TA=518. 688-. 00 35o616* AZ 

P0  =  29.9213*(T  A/518. 688)  **5. 2561393 

CA=49.040895*SQRT(TA) 

SSG=(1.0-.QOOQO689*AZ> ♦♦(-2.128) 

GO  TO  40 
TA=389. 988 

P4=6.8322*EXP  (-4.8C63618*  (1J.0»* (-5> )* (AZ-36Q89.0 ) ) 

CA=968. 4o5 

SSG=1.8l46*EXP  (2.4L32*(AZ-3o089.Q)  *1  (-5.  j  ) ) 

CONTINUE 

RETURN 


THSTU.TATBL 

TBL 

Lb , I c ) , XTBl 

tbl 


TBl  10  u 
TBl  lit 
TBL  120 
TBL  13b 
TBL  14b 
TBl  15u 
TBL  loG 
TBL  17b 
TBL  18b 
TBL  19b 
TBL  200 
TBL  2Ab 
TBL  22u 
TBL  23b 
TBL  240 
TBL  2?b 
TBL  26b 
TBL  27b 
TBL  280 
TBL  29u 
TBL  3ub 
TBL  3lu 
TBL  320- 


TEF 

AT  T He.  TeF 
TeF 
TEF 

-4»H*H-1T£F 
T  c.F 
TEF 
TEF 
ATP 
ATP 
ATP 
ATP 
ATP 
ATP 
ATP 
ATP 
ATP 


ATP  lbO 
ATP  llw 
ATP  12- 
ATP  130 
ATP  140 


END 

ATP 

130- 

SUBROUTINE  TtMP  (Q.TIIPi 

TEM 

ib 

c 

CALCULATES  HAXIMUM  TEMPERATURE  FOR  A  HORIZONTAL  PANtL  SU&JcCTlO 

TOTEM 

2b 

c 

A  TOTAL  FLUX  OF  Q  CAL/CM**2  IMPINGING  WITH  ANGLE  BETA 

TfcM 

3u 

COMMON  /PASS/  SZ. AZ,OELA,AMAX, BET INO, BETA ,W,RHQ, VIS, PZ,HSL,HTt, 

HBLTEM 

40 

1 ,VEL,ALPHL,TMPL,WUAL,CPL,XLEL,CRAFT, J3URST,MBURST,ATM,CAL,TtFFI 

TEM 

5b 

COMMON  /NEEOEO/  TP6,TM8,TM3,TP7,TM4,TM9,TM:>,C0N,PSL,TM& 

TEM 

Ob 

REAL  MBURST 

T  c.M 

7  M 

IF  (BETA. GT. 1,571  GO  TC  40 

TEM 

6  0 

CALL  ATMOSP  ( AZ,T A,PA ,CA, SSGA,  ROSL, AT  Mi 

TEM 

9b 

SMwM-ABS ( vel/cai 

TEM 

lu  w 

TBL=T  A* ( 1. 18#SMLM**2I 

TEM 

lib 

TF= (TBL+TA) /2 .0 

TEM 

120 

HA=5. 46667*TM3*(SMLM*PA )*♦ .8*TA**. 4/ (XLEL**.2*TF**.545> 

TEM 

i3b 

TAJ-.248*HA*SQRT (W)/(CPL*WUAL> 

TEM 

14b 

IF  (TAU-.2)  10,10,20 

TtM 

15b 

10 

TPMAX*1.0134-.7147*TAU 

TEM 

lbo 

GO  TO  33 

TtM 

17u 

23 

TPMAX*. 627-. 362*AL0G(TAU>*. 43429 

TEM 

18b 

33 

QE=Q*C3S (BETA! 

TcM 

190  . 

QAA*QE*ALPHL 

TEM 

2jl 

TMs=TBL+OAA*TPNAX/(.27ll5*WUAL*CPL> 

TEM 

2lb 

RETURN 

TtM 

22b 

43 

WRITE  (6,531 

TtM 

23b 

RETURN 

TEM 

240 

C 

TEM 

25b 

C 

TEM 

2ow 

C 

TEM 

27„ 

53 

FORMAT  (22H  RECEIVER  BtLOW  SOURCEI 

TEM 

260 

END 

TEM 

296- 

SUBROUTINE  OINT  (XX , Y Y ,ZZ ,M,N , X, Y , Zl 

DIN 

lw 

C 

LINEAR  2  DIMENSIONAL  INTERPOLATION 

OIN 

2u 

C 

EXAMPLE-GIVEN  THE  FOLLOWING  TABLE, ANJ  X  ANO  Y  VALUtS,Wt  CAN 

OIN 

30 

c 

1INTERPOLATE  FOR  APPROPIATE  Z  VALUE 

OIN 

40 

c 

XX  ANO  YY  MUST  BE  IN  INCREASING  OR1ER 

OIN 

5w 

c 

XI  X2  X3 

OIN 

Ob 

c 

1Y1  Zll  Z12  Z13 

OIN 

7b 

c 

2Y2  Z21  Z 22  Z23 

DIN 

60 

c 

3Y3  Z31  Z32  Z33 

OIN 

90 

COMMON  /PROBLEM/  NEWPRO0 

DIN 

10b 

DIMENSION  XX ( N ) ,  YY (Mi ,  ZZ(H,N! 

DIN 

11b 

LOGICAL  NEWPROB 

OIN 

120 

IF  ( (  (X.LT.XX  (li) .OR. (X.GT.XX (NK i.OR. < (Y.LT.YY(li) .OR. ( Y. GT . YY ( Ml  DIN 

13b 

nil  GO  TO  70 

OIN 

lHU 

MM=M-1 

OIN 

15b 

NN»N-1 

OIN 

lbu 

OO  20  1*1, MM 

OIN 

17b 

IF  ((YY(II.LE.Y).ANO.  (YYdni.Gc.Yii  GO  TO  10 

OIN 

16b 

GO  TO  20 

OIN 

190 

13 

C1=(Y-YY (III/ (YY(I+1»-YY(I»» 

OIN 

2b  b 

11*1 

OIN 

210 

92 


9000 


I 

f 

I 


20 

30 


40 


53 

60 


70 


0 


12  = 

I  +  l 

LIN 

22l 

GO 

TO  30 

DIN 

CONTINUE 

OIN 

24C 

00 

50  JS1,NN 

DIN 

26k 

IF 

< (XX(J) ->LE.X) .AND. (XX (J+l) . GE.X) )  GO  TO  40 

DIN 

2oQ 

DIN  e.7u 
LIN  26  j 
DIN  c9u 
DIN  30. 
DIN  3i. 
LIN  32c 
DIN  33w 
DIN  3*0 
DIN  35,; 
DIN  36b 
DIN  37  u 
DIN  360 
DIN  391 
DIN  4uC 
DIN  4lu 
01N  ‘♦2  0 
DIN  43k 

FORMAT  (1H1,26HPARAM£TER  OUTSIDE  RANGE  ,  X=  ,615 .6 ,2X  ,2HV  =  ,£l:>  .6 1  OIN  443 

END  DIN  450- 

BLOCK  DATA  BD1  10 

COMMON  /TABLES/  XX  <18 )  ,YY  (5) ,  22  (5 , 18) ,  XXX  (12)  ,  YYY  (Ik )  ,  ZZZ  ( 1.  ,  12)  ,  XBDk  2J 
1XXX(19).YYYY(2C),ZZZZ(20.19),CX1(13),CX2<8),B(8,13)  BD1  3. 

OATA  XX/O.  , 2. 0 000 QE+O 0,4.09 300 6+39 , 6 .  JOO C Ot»ii .  , 8.  Ou 0006+u 3  , .. .  uOGkb BUI  4U 
lE+01,1.5a00O£+Ol,2.O00QOE+01,2.5QQQQE+01,3.Q00O0£+Ql,4.0000Gt+Ol,&BUl  50 

2.OQk0OE+31,7.O06QOE+Ol,9.JOaQUt+31,l.lCOQOt+02,1.503Jflt+:2,3.OkOkjBQi  6u 
3E+0  2,  1. 030006+03/  BD1  7u 

DATA  YY/2.OC0aOE+C3,3.CJa00£+03,4.033 306+03, 5. OGGajE+03  6.  ukuOk-I+obOl  8C 
13/  801  90 

OATA  ZZ/8.45000E”01,9.k5300E-0  l,9.43Jj0£-01»9.7aGuw£-Q..,9.75kUkc-k8Dl  10  k 
ll,7.40Q0QE-Ql,8«40Q0QE-Cl,8,8GC33E-31,8tO2kCu E— 0 i,9.1Gwuwb*ul,6<63 BDl  Ilk 
2 OCOE-Ol , 7. 84Q 0  OE  “0 1*8.17000  £-  0  l,3i43JJGE  —  bl,8.62U3u£-0l,o<  a3oUwc.-k  BDl  120 
31.7.59000E-01 v8. 03 OOOE-Ol , 8. 20 OOOE-O 1, 8. 390QQE-Ql»b. 30000E-0 1 , 7.36BD1  13. 

4  CODE*  01*  7  • 81000E-01  ,7.980QGE“Cl,3.133JG£-Ci,6.lCu0u£-0l,7..L6;,Ck£-k  BDl  1 4u 
51,7.60QQ3E-Ql,7.8CQtjOE-01,d.CGGOQE-31,5»75CQu£-Ql»6.80uJk£-kl*7, 2 2 BDl  . L 
600GE-C1 ,7.45QQCE-01*7.fc0Q0  0E-Ql*  5.5l3QGt-Gl»6.5J0Q0t-01 *6. 9600 uE-C  BDl  ibo 
71,7.170  00E-01 ,7. 33  OOOE-Ol , 5.3500 OE-01,6.2 800 06-01 *6. 7400 0E-01 , 6.98B01  17  0 
8000 E- 01*7. 15000 £-01*5. 18000 6-0 1*6.113006-01*6. 480 OOE -01 *6. 7b00w 6- u BDl  16 u 
91, 6.980 03E-01 ,4.  940006-01,5.  8100  3£- 31,6.  23l»00t-01,  o,  480306*.  1*6. 62  BO  1  190 
lOOOE-Ol *4. 72000E-0 1,5. 59C0C£-01* 6.0 1)306-01,6. 2l00u£-0l, 6.  38CGkt-CB01  20. 
Si, 4.2800 06-01,5.190006- 01, 5. 58000 E- 01, 5.  7 90 Q0E-Q1, 5.  32 00 Dc. -Cl,  4.  06BD1  21C 
S OOOE-Ol ,4.82000E-01 ,5>2QQQG£-f,  1,5. 41)006-01,5. 55  0QCE-01 ,3«6ukGkc-kDDl  22c 
S 1,4. 52000E-01.4. 3G000E-01, 5. 10 OOOE-O 1,5. 2 10306-01, 3. 40 QQOt-Gl, 4. 02BD1  230 
SQOCE— 01,4. 40000E— 01,4.5 50 0 1 i-t  1 ,4.65  3006-01,2 , 400 JO E  —01,2. 60 0 04 6— «* BDl  2 4t 
$  1,2 • 900 0 JE-0 1,2. 50 OOOE-Ol, 2. 70 OOOE-Ol, 1.0 000 06- 01,1.  00 0006-01, 1.0  0BD1  2s 0 
iOOOE-Cl.l.OflOOOE-Ol.l.OJOaCE-kl/  BDl  26u 

OATA  XXX /2 .000 006+00, 3.00000E+00, 5. 3)0006+00, 7. 50000E+ 00, 1.GQD00E+ BDL  27C 


GO  TO  50 

C2=(X-XX(J) )/(XX <  J  +  l ) -XX ( J ) ) 

J1=J 
J2= J+l 
GO  TO  63 
CONTINUE 
COMTINJE 

Zl-ZZ (I1,J1)  +  C1MZZ(I2,JI)-ZZ(I1,J1>  ) 
Z2-ZZ  (I1,J2)  +  C1*(ZZ(I2,J2)-2Z  (I1.J2) ) 
Z=Z1+C2MZ2-Z1) 

RE IJRN 

WRITE  (6,89)  X,Y 
NEHPROB=.TRUE. 

RETUFN 


i 

\ 

i 

t 


l 


\ 


fi 

I. 
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101,1.500QOE40i,2.0000Q£+Ql,2.50JJGE4jl,3.0bOuC£401,4.0uGw,„c4bl,5.cBJl  c6u 
2QGCCE4Q1, 1,000006+02/  BDi  292 

DATA  YYY/O.,l.QnOGG£401,2.GOGGQc+Ol,3.ttOOO£4Ol,4.093Ju£4.1,5.wjb.BDl  30. 
10E+tl*6.00000E  +  01,7.3GLG3c  +  Ui.,8.J3GJJ-  +  Gl»9.0uJuG£  +  cl/  601  310 

DATA  (ZZZ ( I) , I  =  1,&0  >/9.5880dE-G2,1.3JbG0E-bl, 1.131 8GE-G 1,1.290 7 Jt-BOl  320 
101*  1. 437106- 0 1*1  * 568806-0 1  *1. 63823E- 3 1  *1. 5960uE-b  1  *  1. 36<+b . c-w  1  *  1  •  1BQ1  330 
250GGE-Q 1, 1. 9800GE-C1* 1.985706- 01,1. 9S37GE-01,1.9552jc-G1, 1.904906-601  340 
301,1. 801206-01,1. 6m 8306-01 *1.311 53E-Jl,9.587fl&c-l 2, 7.3b JO b£-b 2,3. J6G1  350 
4713 OE-O 1 ,3. 0Q44CE-01 »2.8163QE -01 *2.5596Jc-ui*2.2474uc-ul,l  .6774.6-BQ1  3bc 
501, 1. 456106-0 1, 1.014206-0 1.6.2 50  JOE- J2.4. 3o00 bC-02 ,3. 6683 Jc-bl ,3.5 601  37 u 
674306-01, 3.28  430E-01, 2.88 330E-C1  *2.40640 E-Jl,  1*882006-01,  1 «  348u Jc-BUl  38b 
701,8.48730£*02,4.59100fc-02,2.8&ll]OE- 02,4.0 m93 Oc.”0l, 3. 87260c.- u  1,3.5 BOl  390 
e3020E-01,3.05000E-01,2.48740E-01,1.8777&E-Ol,1.2852ut-01,7.622uut-Bul  4uO 
902,3. 75600E-0 2 ,2.160006-02 ,4* 33623E-J1 ,4. 179406-01,3 .783406-0 1,3.2801  41a 
|197CE-01,2,55870E-01, 1.8700 Jt-01, 1, 2 1960£-01,b. 730 JO c- 02, 2.918 wUt-BOl  42b 
1 02s 1 . 400002-02/  BJ1  430 

OATA  «ZZZ<  x > ,1=61,120  >/4. 50 130 £-01,4. 3360 UE-U 1,3. 91250£-Ul»3.3w 760 BOl  44b 
IE— 01,2.5 9620E-01, 1 . 6637 6c— Cl, 1.13480£— 01,6. 274u0E-02, 2.498.0c— w 2 ,1602  450 
2. 10. 00E-02, 4. 60080E-6 1, 4. 4309 0c-01, 3. 9906 0E-01, 3. 35770E -01,2.61970  601  46  0 
3E-0 1,1*  85990E-Q1, 1 • 16 366 £-61, 5. 99500 £-02, 2.2  b  2006-02 ,8. JOG  b .c-b  3 ,4801  47c 
4.66  7206-31,4. 4945  OE-O 1,4.043706-31, 3. 3930.6- 01, 2. 63340 c-2i*l. 85 72. BUI  48 . 
5E-01,l.l494fl£-0l,5.812O0£-02,2.J73C)6-02,7.botu0E-J3.4.75lbuc-cl,4BOl  49b 
6. 5751CE-01, 4. 10960E-0 1, 3. 43360E -01 ,2. 652106-01, 1.8 5340C-01, 1.13120601  50b 
7E -0 1, 5.5780 OE “0 2, 1. 86110 E-02, 5. 03 1006-13, 4«Bu  090E- J1 • 4. 6232b£-01, 4601  510 
8. 14930E-0 1, 3. 462906-0 1, 2. 663206-0 1,1.851206-0 1,1.1 2a30£-ul, 5. 436b. BOl  520 
96-02, 1.732006-02,4.  JO  0CGE-G3,4.90J13£-t<\,4. 719336-01,4. 2286bc-01,3BQl  63u 
I. 51510E- Cl, 2. 68450E-01, 1.84560E-J 1,1. 098006-0 1,5. 15400c-02,1.47o00BUl  540 
IE-02, 2, 00000c -03/  BOl  55J 

OATA  XXXX/0.,1.00000EKb,2.b000Q£400,3.0O0C0£400,4.00000c^00,5.a00BOl  5b 0 
100 E+ 00, 6.00000 E+OO.S.OCJOJE+QO , 1 . 0 0 3 JOE^Ol ,1 . 200 OOc^O 1 , 1 . 40 w b u c+b 1B01  57 j 
2,l.b&GQOE401»1.8JGGOc+Cl,2.JGu.Jc+01,2.2GGuC£+Gl*2.bjJGJc+bi* 3.0. u BOl  58 . 
300E+01,3.5000QE4jl,4.0bOuJE40l/  BOl  59b 

OATA  YYYY/0. ,2.5000 06-0 1,5. 00 00 0£-01, 7. 50 000c-01,l. 0000 0c  +  00,1. 50 OBOl  bOO 
lOCc^OO,  2. 0000 064  JO i 3. OG.OOc+OJ ,4.3  01 JJE+QJ.b.u.JOOc+JO  ,d.a.b.b64..  BOl  oi» 
2, 1.00C 006401, 1.200106+11,1. 40 0u3.+01,i.800ub£+ul, 2. 2ubb064oi, 2. bjg BOl  o20 
300 £4 01,3. 0003064 01, 3.56000 £4 01, 4. 303)3 E4 01/  BOl  b3b 

OATA  (ZZZZ(l) , 1=1, 95) /l, 000006403,4. 343006-01,1.643006-01 ,4. 29000cB01  b40 
1-02, 1.0QJ00E-Q 3, 6. 710 016-02,1. 99 J006-J1 ,4.534 006-0 1,6. 67.Jbt-0l, 9. BOl  o50 
2720C0  6-01, 1.167OOE40O,1.3l£.OOE+O3,1.41OGOE4bO,1.485jOE4Jb,l. 5940  C;&01  66b 
34QS, 1. 66900 E400, 1.7 2201640 Q,i. 7 640 Cc 4 JO, 1.810 6 bc40J,l. 8350 0c4Qb, 7. BOi.  67 J 
407000 E- 01, 5. 375006-01, 4. 196006 -01, 3. 034006-01, 2. 6 93 006-01, 2. 60 90 wEBOl  68b 
5-01 , 3.1 lOOOE-01,5. C 340CE-0 1 *6 .861 3Cc-il,9.790b0£-01, 1. 160 Ju t+Ob ,1 . BOl  69. 
630C0E400, 1.4000 06+00, 1.48CJ0E 4 3 J,l, 5920 QE+OO , 1.668J JE+dt *1. 72 .U.t BQl  70 w 
7400,1.76200£400,l«8060CE+08,1.83230s400,4.47u6b£-Ol,4.3l40bt-bl,4.B01  7i. 
8 3660 OE-O 1, 4. 30200E-01,4.37200E-31,4. 480006-0 1 ,4.724006-0 1 ,4. 57 1006B01  720 
9-0 1. 7. 2Q600E-Q1, 9. 6300GE-3 1,1. 14 JOOE+dO, 1. 260006+00, 1. 3820. £+bb,l.BCl  730 
|460 C0£403,l. 5820 3E+00 ,1 .66000 E +3 3, 1. 7120 0E+00 , 1.7560 0£4 JO , 1 .799UUEB01  74b 
S 400, 1. 82303E40G , 3. 16001E-0 1, 3. 22610E-01, 3. 435CSE-0 1,3. 724006-0 1,4.601  750 
IOC  40  0  E- 31, 4.56  30  OE -01  ,5. 085  JOE-3 1 , 6, 17100  E-fl  1 , 7. 31UbU£-0i ,  9.  426b0tBl31  7bu 
1-01,  1.12300E4  00,1.25800c40 0,1. 350006400, 1. 44000640 0,1. 56600c400,l. BOl  770 
1646.  06+03,1.702006 40 0,1.749306403, 1.7 90 00 £400, 1.61 90 3c4Jb, 2* 43 bOOEBDl  76u 
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I -Cl, 2. 49 30 3 E-0 1,2.  700 Olc-O 1, 2 . 96 3 3 0£-01 , 3 . 29u Uut-Q 1 , 3.  9G/G uc-G 1 , 4. BOX  79  b 
i62!>GQE-Ol,5,648QQ£-01»7.Q3700E-01,9.382QOE-Oi,1.08&OOE4-aO,l.  19l0  0tcJDl  OQO 
$+0C,1.3260aE430,1.4l30tE*3C*1.5423CE40G/  BOI  81b 

OAT A  (ZZZZ (2) , 1=96, 190 )/l .6400 0E+00 , 1.66600t+00, 1. 737002+00,1. 76QQB01  o20 
lOi+QQ ,1.81JGQE+00,  l.S62QQE-Jl,Z.  30 CO  JE-i)l,2.  l77JUE-uit2.3b-U.c-yl  ,B01  63 e 
22.672G0E-Gl«3.265QCE”0l»3.957bl,;.-Jl»3.2b33bc-bl,6.35j0e£-wl,6.6GGe  BJ1  6  4w 
30E*Dlf 1« 33800E  +  03»1.18Cil3£4,<0»i.2923 )£4U0,1. 381002+00 ,l«626cwc+ub, BOI  82  c 
41.61GOOE+00,1.6720QE+00,1.72200E+Q0, 1. 770 00E+0G .1. 795032+00 , 1. 6440 BOI  6o0 
50E-Gl,1.7lOGOE-Gl,1.8C600£-01,2.33033£-01,2.2blOGE-3l,2.737ccE-wl,BJl  87c 
63.34400£-01.4.60500E-01,5.7220GE-01,8.GaOOGE-Gl,9.81106£-01,i.l27bBi31  68b 
7QE+J0.1. 2410'JE+0  0, 1.3410GE  +  30  ,l.+863  3£  +  GQ,1.579GGE+G3,l-,c,49..wE  +  uO,B01  694 
81. 7Q6G0E+0Q«1 . 7530  OE+QO , 1.7840  OE+O  0, 1.243002-01 ,1 .290QQ2-31 , 1. 3*00601  90  0 
5  0E-01 jl.  460G3t-0l.l.59900E-il,1.965  3  JE-01.2.  42900E-31. 3.44o4ct-ul ,BUj.  9l. 
{4. 55 OCCE-Oli  6.  67 4002-01,8. 527 GG£— 3l,l»0C6Qc£+0w,l«l33GG£+ab,  1.2400 BOI  520 
I OE+G 3  ,1. 49903 E+G3, 1. 52100E+J C,  1.600 3  3£+ Q 0 , 1. o63 QQE+ 00,1. 7210 Qt  +  O 0,801  930 
S 1. 760 OOE  +  QO, 9» 9500 CE-02.1.C 30 JOE-31,  1. 066J6c-01»  1.150 00E-ul,1.237uBiil  94c 
S  QE-ul 9 1. 4650 QE-01 ,1.821 03E-31 ,2.6200  32-01, 3. 5360 Oc-Ql, 5. 457 G0E-01 , BOI  9pQ 
1 7. 26900 E-0 1, 8. 841 0 OE-0 1 . 1. L 220 i £  +  0 0, 1.140 be £  +  uu .1. 3210 bc+uu,l. 4510 BOi  9bu 
10 £+G0,1.5 47 00E+OQtl.62ljG£+OQ  jl.69  03  0E<-QO,1.735  00£4JO,6.30  00  0E>02.BL)l  97  0 
l8.50008£-02,8.90Q0CE-C2,9.1J0GG£-32, 1. 00 OCOt-bl ,1 . 1700 Q£-ul » 1.  430 * BOI  98 . 
10 E” 01,2. 3500uE*01»2,76C06t”0 1,4.410 * 0E-01/  BOI  99C 

OATA  (ZZZZ(l)  ,  1=191, 285) /6.lGOOO£~Oi, 7.66 OoOE'Cl, 9.0 86 OOE-'0 1,1.026 BO lilOb 
lOO£  +  0O.l»228'3OE+OO,1.37aCOE+OO,1.479  3J£+QO,1.5t>2GuE+00»1..649uut+GbBOllulw 
2»1.70100E+00,7.12QQGE“L2,7.2000Q£-Q2'?.560,)0c-Q2»6.0Q00  0£-U2,8.46QBO1102u 
300E-02, 9. 82000 E- 32,1.  166QGE-31 , ^ • 647  J0E-01'i2.249(J0t-01,3.6o*wbL-LlBtJllc?u 
4, 5. 1 7300 E-0 1, 6.65400£“Ll.6«J00O3£“0l ,9. 2440GE-01, 1 . 1310 3£+uu , 1 . 2«6B011t4b 
5OQE  +  OG,1.4OiCGE+3Q,1.5C,3OGE+(IO,l«6Q3jGE+0Q,1.6b3aO£  +  0fl»6.24bwGt'b2Bi)llJ3J 
6,6. 30 000 £-02,  6.500 Q0E-C2 , 6. 90GG Q£-02 , 7 .200 0 Ql-Q2 , 8 .*0 0 0 Qc- 02 , 9 . 60 0 BD 11 OoG 
70CE-02.1 . 3600  0 E-0 1 , 1. 8500  0 E-0 1,3. 370302-01,4.39000  2- 01, 5.7iGu4c-Gi.  BO  llu7G 
8,7. £60002-01,8. 3wQQ0E-bl«l.G4GlG£+C3, 1,20 3b 0c+wG,1.329w0c+uc,l.  432  BO  lib  8c 
9O9E+OQ,1.543OQ£+0O,1.6l7UQE+OQ,5.5533ut-Q2»5.6G0OCc-J2,5»b76uOE-Q2BOlle9G 
3,6.  J  30  0  OE"  0  2, 6. 43000E-C2,  7.230  0  0E-02  ,8.38u  00£ -02, 1 . 1530  3c.-  01 ,1. 55oB01UO  0 
JOOE-O 1,2. 600 JOE-O 1,3.745x0 E-0 1,4. 983 30E-01, 6. 200C3E-J 1, 7. 383uot-U 1B01111U 
S, 9. 4670 0 £-0 1 • 1. 1 20 COE  +  L 0,1. 252 002+ 00, 1.37 0002 +  00, 1.481 0  0c +  00, 1.567  BO 11 12  0 
IG 3E+0C, 4. 98 0G0E-G2, 5. GlOGJE-G 2,5.053302- G2,5.cwubGc-32, 5.65b  eGt-b  2B01113u 
t, 6. 9000  02-0  2, 7. 250  002-2  2,9.900  0  0E-02  ,1 .3 1000c- 01 ,2. 190 0 OE- 01 ,3. 210  0011140 
S00E-3l,4. 32000  E- 01, 5. 50003E-01, 6.563 ‘J0t-01,6.61000E-Jl,1.04cbbc4  be  BO  1119b 
1,1.181002+03,1. 3000  be +  2C;1. 43 7002+03  ,1 . 51&00c+0C , 4. 540 0 Qc- 02 ,4. 54GB011160 
f 0Qc-Q2,4,54GG0£- 3 2 ,4. 9C 30 OE-O 2 , 5. 383  JOE-0  2/  601117b 

OATA  ill  LI  II) ,1=266,361 )/5 . o5o 0 0£-02 ,o , 46000c- 02 , 6.o20 0 02-02 , 1 . 148B011180 
103E-0 1,1. 8950 OE-O 1,2. 7990 OE-O 1.3, 8 02 JjE-0 1,4, 88Gub£-Q 1,5. 898c bt-wlBQlil9e 
2« 7. 6749 0 £-01, 9. 6140 OE-tl,l.lldG0£+O3,1.234uGE+ GQ, l. 3590 GE+ Gw ,1. 463 BO 112jC 
30CE+C0, 3. 64  20  9E-0  2,3.9'.  3OJE-02  ,4. 303  J0£-0  2 ,4,  lu000£-02 ,4.3  wb  w  Gt-0  2B01121 0 
4,4. 60000E-02, 5.6C000E-02, 6. 70000E-02 ,6.90Pa8£-02, 1.420  0  0£- 01 ,2 . 160  B01122  0 
5 OOE-0 1,2.9900 OE-O 1,3. 8800 0L-01 ,4.823  OJE-fl)  o. 5200 G £-01 , 8.26c wOt-w 1001123c 
6, 9. 83000 E-0 1«1.1Q9Q0E+GG,  1. 23603x100  »1.35".bGt  +  w0«3.33GwGc-u2,3.3eu BOI  124c 
70GE-02, 3.30000E-32,3.4E000E-02,3.5703QE-O2,G.93300c-J2,4.37uwbc-b2BO1125 3 
8 , 5. 56 00  0£-0 2 , 7,17  0 0 0E-02, 1 . 152  0  0£-01 , 1. 71400E-01 ,2 , 372  0 Oc- 01, 3. 0 80 B011260 
900£“0 1, 3. 881 OOE-O 1 , 5. 46900E-0 1 , 7. 342 3 OE-Ol, 8. 6200UE-Q1 , 9  615wbc-blBOll27b 
i«l<l233QE+3G,1.24lUO£+CG,2.860O3E-Q2,2<8OuGOt-G2,ie:.8w0G Gc- u  2 , c . 80  c BOI 128b 
i00E-Q2,2.9QQQQE-Q2,3.3Qn0Q£-<02,3.&QQQ0E-02,4.100CQE-Q2,5.80000c-Q2BO1129b 
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i  1 9c  j  0  0  3  0  £-3  2,l<32GQQ£-ll,1.90oL3c-01,2.52330c-01,3.1d0uJE— 3l,4.57u  BUI  1 3  o  3 
t QOE-O 1,6.03 03 OE-3 1,7. 430 JOE-O 1,3.483  iJE-5 1,9. 96060 £-31 ,1. 118u4E+uwl  111  31  u 
t  «2.50G0Q£-02«2.5Q00Q£-C2,2 .503  0Q£-0  2 ,2.50 000t-02 ,2 .6100 3t-02,2.820BJ1132Q 
103C-Q2, 3. 080G3E-Q2.3. 76003E-0Z ,4. 733 33 t- 52 ,7. 24003E-32 , 1. uo43Lt-uiBJll33u 
i » 1. 47 700E-Q 1, 1.92GC0E-G1, 2 .*79002-01 ,3. b3  00 0E-01 , 4.8550  0£- 01 ,b. 090 BU 113*0 
lC0E-01,7.29300E-31,e.7Ut5£-0l,1.0QlJ3E*0ii/  B0ll35u 

DATA  CX1/0.  ,5 • 00  3  5GE  +  05  ,6. 3 303  0E+00 ,  7.0 00 QQE  +  00 ,6. 00000t* 03 , 9.  OQOQBDilSoO 
10£»C0,l.d0003£+01,1.50GQ(l£+31t2.]G00  3£Hl»2.5l)00ut*  Jl,  3.  5«3l»Ut+ul , 801137  c 
24.5OOOOE+O1»9.C0OOQE+G1/  BD11384 

DATA  CX2/0.,5.00a00£+03,1.00035E+3*,i.55Q  JOt*  «4, 2 . 30  i.  £♦«  4 , 2.  53uoBOil39a 
10£+G4,3.0000G£404,6.6QC30£+0*/  BJ11400 

OAT  A  (B ( I ) , 1  =  1 ,3 0 ) /0. ,G • « 3  . .3. .3, ,0.  ,3. , u . ,5.uu3GQ£+63* I.l8*u5£+ui BO 11 41 » 
1, 1.7200 QE+Q1, 2<260uC£+Ci« 2.86 030£+01 »3.*uu5g£+Ul ,3 .7400 0t+ui ,5  .3v«  BO 11 42  b 
200E+3 1,  6.0000 3E+0Q «  l«1633G£+Gl<1.633J3£+8l«2.l2GGG£+3l,2.57k4uE+ulBDll*30 
3  *3. 13  00  0E+Q 1, 3.480Q0E  +  01, *.b0  00 0E+0 1 *7.36 0G0E+u0  *  1 .2GQg  3E+ w 1 » 1 « 59u  B01l4*u 
400E+01,2.Q600QE+Ql,2.4lG33£+0 1,2.923  3  □  £  ♦  01, 3.263  G0E+  31,4.  Hi  wot,  £  +  51  Bull  wu 
5*8.  C 30 Q3E+Q0  *1.240CGE+01, 1.590C0£+01,1 .9700u£+dl,2 .313332+31, 2. 765 BDll4bg 
60fli*81,3.12000E+01,4.25030£+0l»9.3O3  33£+OU,i.3CJ0O£»31 ,l.ol4w3t+U16Dil*75 
7,1.9500  0£01,2.2603Q£+Sl,2.o30  0  0E  +  Ol  ,2 . 9 93002*0 1 , 4.1 93 w  uc  +  5  1 , 1 .  Ju - 8Cli*8k 
60QE+01«1, 36030 E+ 31/  Bull49w 

DATA  (8(1),  1=51, 1041/1.65  0G3E+01, 1.950  OGt+51, 2.2  3uu0c.+31, 2.  b  53  u5£+BD  11 5uv 
101,2.90030£+01,4.lCa0  3t+01,1.505  33£+31,l.  7*QC5t+fll  ,1 .92335E+i,l  ,2. 1BU11S15 
2500 0E+01,2. 35 000E+0 1,2. 560 03E+0 1,2. 3 I0G0E+01, 4. 050 002+0 1,2. Gi,uujc  +  601152k 


301,2.173  30£+01,2.3103  0£+B1,2.460  JJE  + 31,2. 61u3t  £+01, 2.81  JkU^+jl  ,2.9BI311b3u 
(800CE+Q1, 3. 900002+01,2. 53  003£  +  Ql,2.65300E+01,2.730ujii  +  51,2.6tu  tut+Bkllb+li 
501,2. 969  9QE+3 1,3. 120Q0E+31 , 3.25333 £+ 31,3. 96300 £+01, 3. 53330 £+«l,3. 6 BO 11 55 3 
60000£  +  01,3.  67 00 0£+  0 1 , 3. 7*QOQ£+Q1,3.83Q0Q£+O1, 3.9000 02+01, 3. 980  00c.+  BDil5bu 
7G1,4.*6000£+01«4.5CG0UE+31«  +  .59S3']E+J1<*.65j04E+Q1,*.693GJ£+w1,*.7  BUI  157  3 
85335£  +  01,4.62000E  +  01,4.960C3E  +  Gl,5.2  23CGE+Gl?  9. 303  33E+  31, 9.  t.03  4o£+BUll58u 
90l,9.00030E+01,9.00030£+ul,9.00333E+ Jl  ,9.  OuO 3 uL+0 1 , 9. 0 0303  E+u  1 , 9.  u  8011 59w 
t 0000£+0i/  B011603 

END  B011 bio- 

SUBROUTINE  SABERCH  (SRCM,HZCM,HGCM,H8CM,WCM,DtLPCN, HORF , TS A ,NCASE , SAB  lw 


1 I°ROBIi  SAB 

SAB 

TH£  ORIGINAL  VERSION,  SABER,  DESCRIBED  BELOW  HAS  BEEN  MODIFIED  BY  SAB 
CRAIG  E  HILLER,  CAPT,  AFWL(SAB),  KIRTLAND  AFB,  N.  HEX.,  2*71711  SAB 
EXT  2051  TO  DETERMINE  ONLY  THE  OVERPRESSURE  RANGE  SOLUTION  AND  SAB 
TINE  OF  SHOCK  ARRIVAL  WHICH  IS  ONE  SPECIFIC  USE  OF  THE  ORIGINAL  SAB 
MULTIPURPOSE  PROGRAM,  OCTOBER  1372  SAB 

SAB 


20 

3u 

4U 

So 

oO 

75 

83 

93 


PROGRAM  SABERdNPUT, OUTPUT, PUNCH, TAP£5=INPUT,TAPE6=0UTPUT)  SAB  loo 

THIS  PROGRAM  CALCULATES  THE  FRtE-FIELO  BLAST  PARAMETERS  ASSJCI ATEDSAB  123 
WITH  THE  DETONATION  OF  A  NUCLEAR  WEAPON.  THE  MODEL  USES  SAB  135 
SIMILITUDE  TECHNIQUES  BASEO  ON  THE  IBM  M-PROBLEH  1-KT  SEA  LEVEL  SAB  140 
CALCULATION.  THE  ORIGINAL  VERSION  OF  THE  PROGRAM  WAS  WRITTEN  BY  SAB  150 
ARTURO  V.  SERRANO  OF  TECHNOLOGY  INC.  THE  PRESENT  VERSION  IS  THE  SAB  lbo 
RESULT  OF  AN  EFFORT  TO  EXPANO  THE  CAPABILITY  OF  THE  CODE  AND  SAB  l7u 
HAS  WRITTEN  BY  CAPT  N.  R.  DASSOW  AND  HR.  A.  L.  SHARP  AFHL(WLAA)  SAB  180 
KIRTLANO  AFB,  N.  HEX.  PH.  2*71711  EX.  2436.  SAB  I9u 


96 


c 

G 

C 


*** *************************************************************** 5/jg 

COMMON  /TRI/  PZ,PG,PB,HZ,HG,HB,PZR,PGR,PBR,H,SR,FR,SR£, ALPlcR, ALP1SAB 
IE  »  R  9  0 , P  BP  Z  »  R , P  8RM , I NCOMP  SAB 

COMMON  /SENSE/  CPS  SAB 

COMMON  /COLO/  CF11<2»,CF22<2) ,CF33 (2) ,CF44(2) ,CF55(2) ,CFR(o),CFl  (7 SAB 
1 ) »CF2 (7) ,CF3( 7)  SAB 

COMMON  /TAB/  TABU ( 69 ) , T AB1CM 6 9) , T A32I (o2 ) ,T AB20 (62) , T A B3I (b9) .TABSAB 
1 3D ( 69 ) , T  AB4  1(13)  ,TA 840(18)  ,TAB5I (26)  ,TAB50(2o) ,  TAB6I  (o3)  ,  TABoO  (69)  SAB 
COMM 3 N  /CON/  UL2(7) ,UL3 (8) ,UL4 J3),UL5(5),C4(7),C5(7),Co(7),C7(o) , CSAB 
18(8) ,C9(8) ,ClU  (8) ,C1K8),C12(8)  ,P2  (6),  P3 (8) , Ait (41) ,ACF (13) , CF (13) SAB 
COMMON  /P NT/  RA,STO,PHIR,SHB,ST,X<K, ALTSRG.HT ,XKKX  SAB 

COMMON  /OVP/  DELP,  DELPO.DtLPR.CCNT  ,  NIT  ,  XITER  SAB 

COMMON  /TBLKUP/  L1,LF,NAJ6),XL(133),NNLX  SAB 

DIMENSION  P  ( 3 )  ,  H  (3)  ,  PR(3),  TEHP(3),  TM<3),  RH0t3),  SS(3),  SUBS ( 1SAB 
12)  SAB 

DIMENSION  IHEGK5  .3) ,  IH£02(3,2t,  10(28),  STP(lJC),  HTP(li-)  SAB 

DIMENSION  101(2)  SAB 

EHUiY.V  £NC£  (P,PZ),  (H,HZ),  (PR,PZR),  (RH0Z,RH0(1) ) ,  (RHOG,RHO  (2) ) SAB 
1,  (RHOB, RHO (3)1,  (SSZ,SS(1)I,  (S5G,3S(2))«  (SSB,SS(3))  SAB 

OATA  (IHEOKJ)  ,J=1,5)/50H  OVERPRESSURE  SOLUTION  SAB 

1  /  SAB 


DATA  (IHE01 ( J) ,J=6,10)/5GH 


TRIPLE  POINT  PATH  SOLUTION 


OATA 

L 

DATA 

OATA 

DATA 


(IHEOKJ),  J=11,15)/50H 
/ 

(IH£02(J),J=1,3)/3QH 
(IHED2 (J) ,J=4,6!/30H 


RANGE  SOLUTION 


(KITH  TEMPERATURE  ChANGE) 


Chi) 
2lu 
220 
23u 
240 
25j 
260 
27b 

26b 
29  o 
300 
31b 
320 
33b 
3t0 
35  u 
36b 
37  o 
360 
39b 
40  u 
SAB  41b 
SAB  420 
SAB  h3u 
SAB  44b 
SAB  450 
SAB  460 


(10 (J) , Jsi«28 ) /2HSR, 2HHZ ,2HHG,2HHB,1HM, 3HTSA, 2HFR, 3HSFV ,4HUELSAB  47b 
IP, 3 HP MV  » 3HPOO ,5HSDELP ,4HRBAR, 1HR,4HA IFA , 3HSRE , 5HALP l£, 3 HSTO, 2HRA , 2SAB  480 
2HST, 2HHT ,5HPOOOP ,4HPDMV , 4 HP 00 D, 1 HQ, 4 HR 
OATA  (IUl(J), J=l,2)/4HHORF,4HH9RN/ 

OATA  CFli/. 599829717,. 59990265538/ 

OATA  CF22/-. 813121060, -.83454567 392/ 

JAT A  CF33/. 0537960684,. 20 153863384/ 

OATA  CF44/. 178602593, -.042235077752/ 

OATA  CF55/. 137332981,. CO 38 26882288  7/ 

DATA  CFS/1.85/ 

DATA  CFR/. 5, .8, 1.2, 1.6, 3. C,,10./ 


********************* 

OATA  100 IT/0/ 

********** 

INTEGER  SAVCASE 

******** 

SR=SRCM 
HZ=HZCH*HGCM 
HG=HGCM 
H8=H8CM*  HCCM 
W-HCM 


*********** 


************ 


:,3HSSZ,3MCFV 

SAB 

49b 

SAB 

500 

SAB 

51* 

SAB 

520 

SAB 

53b 

SAB 

54b 

SAB 

55  b 

SAB 

bo  0 

SAB 

57  b 

1111,0./ 

SAB 

50u 

’ • C U 3  4b6 9 0  •/ 

SAB 

59b 

&9t5770H9.:>9i/ 

SAB 

600 

******** 

♦  *  *  *  SAB 

610 

SAB 

62b 

♦  *  *  *  *  *  *  * 

*  *  *  *  SA6 

63b 

SAB 

04  0 

********* 

*  *  *  *SAB 

b50 

SAB 

66b 

SAB 

67  b 

SAB 

660 

SAB 

69b 

SAB 

70  b 

97 


OE*»=DELPCM 

44***4*44**444***  4*  4*4* 

NPRQB=D 

Rl3=lC. 3/57. 296 
R90=9G. 0/57. 296 
R13:=130. 0/57.296 

4444.*  44444444444*4**444 

IF  <IOOI1.NC.D»  GO  TO  20 

444*444*44*4*444*****44 

00  10  J=l. 18 

TAB4I  (JI-T4B4KJI  Z57.296 
V  AB4D ( J I  - T  AB4 0 ( J 1 / 57. 296 

444*4*44*4*  ******4**444* 

I03IT“1 

NN=70 

00  30  J=1 >65 
N=NN-J 

TAB3HJ»*TAB10IN> 

T AB30 ( J ) =T AB1 1  (N) 

PHVD-0. 

FMV=C. 

NPR08*NPfJ08*l 

»,*****»********♦****** 

READ  (5.11901  XIHB.XMHB.XIHZ.XMHZ 

IF  (ENOFILE  51  1130,40 

IF  (NPR0B.GE.2I  GO  TO  1130 

XIH8=X'5H8=XIHZ=XMHZ=0.C 

40  IF(NCASl.GT.O)  WRITE (6 . 1140 I  NCASE 

44»»  4444444444444  4*  *4*4 

CHK=1. 

PSw =2116. 217/144. 

N=C 

XPRRT=i. 

NIT=0 

VITER*0. 

XKKX-0. 

OV»R=0. 

CONT=Q. 

OEl3O*0. 

INCOMP=0 
NPT  =0 
JTP=0 
LPL=0 
SRE=0.0 
ALslt  =  0  •  0 
STO=0.0 
RA=Q  •  0 
ST=0. C 
HT=0.0 

4444*4*****444*44  4*  4**4 


SAB  71l 

444444*44*  *SAB  720 

SAB  73C 
SAB  7*0 
SAB  75u 
SAB  7ou 

444*44***4  sab  770 

SAB  76u 

444444444*  SAB  79u 

SAB  64* 
SAB  810 
SAB  621 

4444444*4*  SAB  63* 

SAB  8a0 

*4444***4*  SAB  850 

SAB  6o. 
SAB  67* 
SAB  86 J 
SAB  690 
SAB 

SAB  910 
SAB  92* 
SAB  930 

444**44*44  *SAB  940 

SAB  y5u 
SAB  96* 
SAB  970 
SAB  930 
SAB  99u 

444**4*44*  *SABluO« 

SABI* 1* 
SABI*  2* 
SABlt 3* 
SABI* AO 
SAB1050 
SAB10  6  * 
SABI*  7  u 
SABI  *  6  0 
SAB109J 
SASH*. 
SAB111* 
SA81120 
SAB1130 
SAB114* 
SAB115* 
SABI loo 
SAB1170 
SABlld* 
SAB119* 
SA812*  * 

•4**44*464  *SAB121U 


98 


60 

7) 


80 

93 


100 

f 

1.0 

C 

C 


123 


130 


C 

1  +  3 
C 

c 

190 


C 

160 

C 

C 

170 

c 

c 

c 


IF  (TSA.GT.Q.O)  TS ACM=T5A 
TSA-O.Q 

IF  (CHK'l.)  60,110,43 
IF  ( XIH3)  80,80,70 
HB=H3+XIHB 
S4VBURS=H8 

IF  (HB-XHHB)  80,80,40 
IF  ( XIHZ)  100,100 ,90 
HZ=HZ+XIHZ 
SAVALT=HZ 

IF  (HZ-XMHZ)  120,120,41 
IF  SXIHB.EQ.O..AND.XIKZ.EQ.a.)  GO  TO  40 
GO  TO  120 

KCASE=2 

110  READ  (5,1180)  KCASt *KTEMP  , KOELT *  SR,  HZ  »HG  »HB*  W,  Dc.LP 
KTEMP=KOELT  =0 

SRSV=SR 

WOR=H 

IF  (HB.LT. 25000.)  GO  TO  130 
CALL  SETUP  (A CF, 1,2, 13, 0,0, 3,0  ,0) 

CALL  HACURE  (CF,HB,C ,0 ,C,U ,0 ,LtR,CFF) 

H=CFF*HOR 

IF  (CHK.EQ.0. )  GO  TO  2CQ 
IF  (KTEMP.EQ.0)  GO  TO  150 
IF  <XIHB.EQ.fl ..AND. XIHZ. tQ.j. )  GO  TO  140 
KT£MP=0 

WRITE  (6,1340) 

WRITE  (6,1140) 

140  READ  (5,1200)  TEMPS, TM 
GO  TO  1130 

»»»»»»**.»»*»**»»»  **  +  +**•*  +  *•*•* 
IF  (KOELT.EQ.O)  GO  TO  170 
IF  (XIHB.EQ.0..ANO.XIHZ.EQ.3.)  GO  TO  16u 
KOELT=0 

WRITE  (6,1350) 

»»«**»*»***«*#*  +  ********  +  »**  »** 
WRITE  (6,1150) 

160  REAO  (5,1200)  SUBS 
GO  TO  1130 

IF  (KCASE.EQ. 3 )  GO  TO  190 
IF  (KCASE.EQ. 0)  KOPT=G 

*******4*******  +  *  **♦  +  ++  **  +  **  +  *  + 

IF  (KCASE.EQ. 2)  REAO  (5,1210)  KOPT 
KOPT=l 

**********♦♦********  +  ***•***  +  ♦  + 

KCASE=KCASE+1 


SAB122C 

♦  *  ♦SABlZJi. 

SAB12HO 
SABI 2p  y 
SA3l2ou 
SAB127  w 
SA81260 
SABl29t. 
SA813*  fl 
SABl3lu 
SABl32u 
SAB1330 
SAB13+0 
SAB13ph 

♦  *  ♦SABl36k. 

SABI  37  u 
SAB1364 
SAB139u 

♦  *  *SABl4Uw 

SABI  41 u 
SABI 420 
SABi+3. 
SABI  4+0 
SAB145C 
SAB1460 
SAB147  C 
SA8l48u 
SAB149* 
SAB1500 
SAbl6j.ii 

♦  *  ♦SAB152t 

SAB153u 

SABlp+O 

SABlPPi, 

♦  *  ♦SABlBoti 

SA  B157’. 
SABIpol 
SAB1594 
SAB) 63  o 

♦  *  *SAB161u 

SAB162 j 
SAB163C 
SABlo+u 

♦  *  *SABlo50 

SABlbbii 
SABlb7  i 

♦  *  ♦SABlbBii 

SABlb9u 

SAB17U 

♦  *  ♦SABl7lu 

SABI  72  0 


99 


If  (KCA5E-3)  200,200, 160 

SAB1730 

180 

PRINT  1170 

SA  Bl7  4 i 

GO  TO  50 

SABl75b 

C 

y»«»**4»»*«»****»  **************** 

*SABl76w 

190 

WRITE  (6,1160) 

SAB177  u 

C 

190  READ  (5.1190)  PMV 

SABl70w 

GO  TO  1130 

SAB17  9u 

230 

K=KTEMP*1 

SABISj j 

If  ( (XIHB.GT.O..OR.XIHZ.GT.O.) .AND.K.GT.l)  GO  TO  213 

SABlolu 

WRITE  (6.1200)  (IHEOl  (J.KCASE) . J=1 ,5) , (IHED2  iJ.K) . J=l,3) 

SABloLu 

If  (KCASE.NE.2)  GO  TO  210 

SABlSOk. 

If  (KOELT.EQ.O)  GO  TO  210 

SA8184U 

If  (KTEMP.EQ.35  GO  TO  210 

SAB185t 

WRITE  (6.121f' ) 

SAB1860 

KT  EMP=0 

SAB167 1 

213 

If  (HB.LT.250 100.)  GO  TO  22J 

SABlbOb 

WRITE  (6.1260) 

SABI  890 

WRITE  (6.1270)  HB 

SAB  190 u 

If  (KCASE.EQ.2)  GO  TO  lCbO 

SAB1910 

GO  TO  50 

SAB192U 

225 

IF  (CONT.GT.G.)  GO  TO  250 

SAB193u 

If  (KCASE-1)  230.230.250 

SAB1540 

230 

ALT  M=  ABS (HZ-HB) 

SAB195u 

IF  (SRSV-ALTM)  240,250,250 

SA31960 

243 

WRITE  (5.1380)  H8,HZ,SR 

SA3197u 

If  (XIHB.GT.O.-.OP.XIHZ.GT.O.)  GO  TO  50 

SABI 980 

GO  TO  40 

SAB1990 

253 

If  (XITER)  260,260,390 

SAB2000 

250 

IF  (CHK)  270,270.280 

SAB2blu 

270 

IF  (OVPR-1.)  310,340,350 

SA32020 

283 

SRsSR/l300. 

SAB20  3 j 

DO  290  J31 , 3 

SAB2u4u 

CALL  ATMOS  (H(J) .TEMP (J),0EN,RH0(J),TR,PR  (J) ,SS(J),9C,KEK) 

SAB2U50 

If  (KER.NE.l)  GO  TO  300 

SAB2u 60 

293 

P(J)=PR(J)*PSL 

SAB20  7  u 

GO  TO  350 

SAB2odU 

330 

WRITE  (6,1250)  J.KErf 

SAB2b  90 

GO  TO  1360 

SAB21ju 

310 

If  (XIHB)  330,330,320 

SAB2110 

323 

CALL  ATHOS  (HB.TEHP  (3)  .OtN.RHOB.TR  »P  2'i,SS8, VC »KER) 

SAB2l2u 

If  (KER.NE.l)  GO  TO  301 

SAB2 13  u 

P8=PBR*PSL 

SA3214U 

330 

If  (XIHZ)  350,350,340 

SAB2150 

340 

CALL  ATHOS  (HZ, TEMP (1) ,OEN,RHOZ,TR,PZR,SSZ,VC,KER) 

SAB2l6u 

IF  (KSR.NE.l)  60  TO  300 

SAB2l7u 

PZ=’ZR*PSL 

SAB218u 

350 

IF  (KTEHP.EQ.O)  GO  T0  390 

SA32190 

PSL=14. 696* TEMPS/ 518. 67 

SAB223u 

IF  (OVPR)  360,360,38) 

SA3222U 

353 

DO  370  J31, 3 

SA32220 

P(J)=P( J)*TEMFMJ)/<M(J) 

SAS2230 

PR ( J ) =9 ( J) /9SL 

SAB2240 

RHO  ( J ) -RHO (J) *1M( J)/TcMP( J) 

SA8225C 

373 

SS(J)=49.02*TM(J) **.5 

SAS22o.< 

GO  TO  390 

SA3227  0 

383 

SS(1)=49.02*TM(1)**,5 

SAB228o 

393 

IF  (PMVO.EQ.U.)  GO  TO  433 

SAB2290 

IF  (XPRNT-1.)  400.433,413 

SAB23jj 

43  0 

IF  (XITER-1.)  420,410,433 

SAB2310 

413 

WRITE  (6,1283)  PM VO 

SAB2323 

GO  TO  430 

SAB233u 

423 

WRITE  (6,1284)  PMVO 

SAB£34u 

IF  (KOPT.EQ.C)  KOPT=l 

SAB235Q 

WCZ1=PM V/SSZ 

SAQ236 j 

w:Z2=WCZl**2. 

SAB237u 

RAPIC *3QRT(.36*WCZ2+1.) 

SA8238u 

DELP=PZ* ( ,84* WCZ2+1 ,4*WCZ1#RA0IC ) 

SAB2390 

430 

CH<=3. 

SAB24u<J 

OVPR=0. 

S AB2  4l u 

PBP  Z=PZ/P9 

SA824 2u 

SSZR-SSZ/1116 • 4437 

SAB2430 

PBRW= (PBR/W)**, 333333 

S  AB2h-:  d 

PZRW=(PZR/W)**. 333333 

SAB245u 

440 

GOTO  (470,450,480),  KCASE 

SAB2404 

450 

IF  (HF.EQ.0..AND.N.GT.G)  GO  TO  53 

SAB247u 

RF=1h5.*W**.4 

SAB 2h8C 

ALTF=HB-HG 

SAB249- 

IF  ( RF-ALTF )  490,460,461 

SAB2rO0 

463 

WRITE  (6,13)0)  W,HB 

SAB2510 

GO  TO  1360 

SAB2521 

473 

IF  (SR.NE.0.3)  GO  TO  450 

S AB253 1 

PRINT  1180 

SA82540 

GO  TO  53 

SAB2650 

483 

IF  (W.NE.0.0)  GO  TO  89C 

SAB2sot 

PRINT  1190 

SAB257 1 

GO  TO  53 

SAB258L 

490 

CALL  TRIPNT  (KCASE) 

SAB2590 

IF  (INCOMP. EQ.l)  GO  TO  1060 

SAB263  u 

GO  TO  (550,500),  KCASE 

SAB261U 

500 

ST3=SRE*SIN(ALP1ER) 

SA82b2u 

ALPHIR=Q.O 

SAB2o30 

513 

CALL  SETUP  (TAB4I, 1,2, 18,0, 3,0, 3,0) 

SAB264U 

CALL  MACURE  ( T AB4D, ALPHIR , C ,0 , u , i , 0 , LER , PHIR) 

SAB2650 

At9HI=ALPHIR«-ALPiER 

SABi-'bou 

RA=SREMSIN(R90+ALP1ER-PHIR)/SIN(R9Q-ALPHI+PHIR)) 

SAB2b7  C 

RA*ABS(RA) 

SAB26dw 

JTP=JTP41 

SAB269U 

ST  =RA*COS ( R93 "ALPHI ) 

SAB27  u  u 

STP ( JTP)=ST 

SAB2710 

IF  (NPT.GT.0)  GO  TO  521 

SAB272t 

IF  (JTP.EQ.l)  GO  TO  52C 

SAB273u 

IF  (STP(JTP).LE.STP(JTP-l) )  NPT=JTP-1 

SA8274U 

101 


520  HT=(ST-STO)* (SIN <PHIR)/COS (PHIR) ) 

HTP ( JTP ) *HT 
RBAR=RA*PBRN 

CALL  SETUP  (TABtol, 1,2, 69,0, J. 0*0*3) 

CALL  MACURE  (TAB60 , R8AR , 0 , L , C , 3 , J ,LER .TSACAP) 

TSA=TSACAP/ (3SZR*PZRW) 

IP  (N.EQ.O)  GO  TO  533 

IF  (AL3HIR.EQ.G.Q>  WRITE  (6,123J)  ID  U>  ,HB,  10  (5 )  ,W  » ID  t  lb) 
17),ALP1E,ID(16),ST0,ID(3> ,HG 
WRITE  (6,1240)  10(19), RA ,  10  <20  i .  ST ,  I J  (21  >  ,KT, 10(6), TSA 
GO  TO  543 

533  IF  <AL?HIR.EQ.G.O>  WRITE  (6,1220)  10  (*♦)  ,HB,ID  (5)  ,W  ,10  tlo) 
17),ALPlEiIO(ld',STO,I.O(3),HC 
WRITE  (6,1240)  I0(19>, RA, 10(20), 3T, 10(21), HT, 10(6), TSA 
543  AL3HIR= ALP  HIR+R1Q 

IF  (R130-ALPHIR)  1123,510,510 
550  PBRWFR=(PBR/(W*FR) >**.333333 
PZRWFR=(PIR/(W*FR) )*♦. 333333 
RBAR=SR*PBRWFR 
IF  (KOPT.ECl.l)  GO  TO  570 
CALL  SETUP  (TAB1I, 1,2, 69,0,0,0,0.0) 

CALL  MANURE  ( TABID ,RBAR,U ,1 , 0 , g , J , LER, SDELP) 

IF  (HZ.NE.MB)  GO  TO  56G 
OEL3=SOtLP*PBR 
ALFA=1.0 
GO  TO  573 

560  CALL  SETUP  (T AB2I ,1 ,2 , 62, 0 , 0 , 0 , 0 ,0 ) 

CALL  MACURE  (TAB20,RBAR,0,G,0,G,J, LER, ALFA) 

DEL P=SOELP*PBR*PBPZ** ALFA 
573  £PSILO=OELP/PZ 
00  560  J*l, 7 

IF  (RBAR.LT.UL2(J))  GO  TO  590 
580  CONTINUE 

T03Z=»2526Q9*(1.2*11.2l)*AL0G( RBARi 
GO  TO  603 

593  TDPZ=C4(J>*RBAR*4‘2+C5(J)*RBAR*C6(J> 

633  DO  610  J=l>8 

IF  (R:R,LT.UL3(J)>  GO  TO  620 
610  CONTINI  £ 

J=8 

623  TMV=C7<J)*RBAR**P2(J)+C8(J)*R8AR+C9(J> 

00  630  J=l,8 

IF  (R8AR<  LT . UL4( J) )  GO  TO  640 
630  CONTINUE 
J=8 

643  TDRZ=C10 ( J) *RBAR**P3( J)+C11( J) *R3AR+C12 (J) 

POOOP=TOPZ/(SSZR*PZRWFR) 

PMV=5.0*EPSILO*SSZ/(7.C*(1.346.0*EPSILO/7.l)**.5) 

POMV=TMV*PQOOP 

POO=RHOZ*<7. J*6.3*EPSILO>/ (7.+EPSILO) 

PD30=  TORZ*POOOP 


SAS2  7?  0 
SAB27O0 
SA6277 u 
SAB276L 
SA8279U 
SAB2  du  u 
SA828U 
,SX£.,I0(lSAd262b 
SA6263U 
SA82840 
SA82651 
,SRc.,10(lSAS26ob 
SA8287  0 
SAB268o 
SA3249J 
SAB29uu 
SA82910 
SA32921 
SAB293G 
SA829hL 
SAB2951 
SA629ou 
SAB2970 
SA629 0 u 
SA8299U 
SAB3uo« 
SA83010 
SA33u2u 
SA83u3u 
SA83l4u 
SA83050 
SAB3jow 
SA83u  7 w 
SA63u6u 
SAB3090 
SAb3lu a 
SA83111 
SA63120 
SAB3130 
SAB3l4u 
SAB315u 
SA8316L 
SA93170 
SAB318L 
SABSiBt, 
SAB32G0 
SAB321 1 
SAB3221 
SAB323U 
SaB324u 
SAB3  cs\i 


5FV=SSZM1.0  +  6.C*£PSILC/7.3)**.5 
Q=2.5*C£LP**2.0/'.7.t*PZ*O£lP» 

CALL  SETUP  (TAB6I,1,2,69,3,J,0,3,JJ 

CALL  MACURE  ( T AB60, ROAR* Q , Q . 0 . 0 t 3 , LER, TSACAP) 

TSA=TSACAP/(SSZR*PZRWFR) 

IF  (KOPT.EQ.i)  GO  TO  830 

HORF-SQRT( (SR*10 JO. )**2-( (A3S ( HZ-HB) ) **2> ) 

HORN=  HORF*.  003164 

IF  (CONT.EQ.O.)  GO  TO  733 

NIT=NIT+1 

IF  (NIT-11  733,730.650 
653  IF  (PMVD)  673.673,660 
660  PV3D=A3S(PMV-PMVD) 

IF  (PV3O-.0l)  733,733,690 
670  0=OD=ABS(DELP-OELPO) 

IF  (OPOO-.Ol)  733,730,660 
680  OEL?R=OELP 

SRS=A3S ( HZ-HB ) 

3RS=SRS* (0£lPR/0£LP0)**«33 
GO  TO  703 

630  SRS= ABS ( HZ-HB) 

SRS=SRS* (PKV/PMV0)**.33 
733  IF  (HB.GT.HZ)  GO  TO  71C 
HZ=HB+SRS 
GO  TO  720 
713  HZ=HB-SRS 
720  OVPR=1.0 

IF  (NIT.GT.l)  XPRN7«1. 

GO  TO  973 

730  HRITE  (6,1223)  IO  (1)  ,SR,IO  (2)  ,HZ,  10(3)  ,HG,IDU>  ,HB,IU(5)  ,H 
WRITE  (6,1240 )  IO (6 ) ,TSA, IO (7 ) ,FR, 10 (8 ) ,SF V, IO (25) ,U 
HRITE  (6,1243)  ID (9) ,OLLP, 10(10) , PHW, 10(11), POD,IO( 20 ),RHOZ 
HRITE  (6,1240)  10(22) ,POOOP,IG(23) ,P0HV,ID(24) , POOD, ID(27) ,SSZ 
HRITE  (5,1243)  10(12) ,SQELP, IO <l3) ,RBAR,I0(14) ,R, 10(15) .ALFA 
HRITE  (6,1240)  101(1), HORF, 101 (2), HORN 
IF  (HB.LT. 25000.)  GO  TO  74C 
HRITE  (6,1240)  10(28)  ,CFF 
HRITE  (6,1290)  HOR 
GO  TO  750 

743  HRITE  (6,1300) 

750  IF  (CCNT.EQ.3.)  GO  TO  1060 
IF  (NIT-1)  650,650,760 
763  IF  (PMVD)  770,770,603 
773  HRITE  (6,1370) 

HRITE  (6,1333) 

HRITE  (6,1360)  NIT 
HRITE  (6,1370) 

IF  (XIHB.GT.C.«OR.XIIIZ.GT.O.)  GO  TO  760 
IF  (KOELT.GT.O)  GO  TO  790 
GO  TO  1360 
780  KCASE=S AVCASE 


SAd326l 
SAB327u 
SAB328u 
SAB329Q 
SAB33 j o 
SAB33li. 
SAB3320 
SAB3330 
SAB334u 
5AB3350 
SAB3 Jou 
SAB3370 
SA3338L 
SAB339u 
SAB34 0 C 
5AB3410 
SAB3h20 
SAB343u 
SAS344i, 
SAB3450 
SAB346U 
SAU3473 
SAB34di. 
SAB349L 
SAB35uu 
SAB351L 
SAB3520 
SAB3530 
SAB354Q 
SAb3s5w 
SAB356l 
SAB357  u 
SAB3580 
SAB359L 
SAB36uu 
SAB3610 
SAB362U 
SAB363i 
SAB364u 
SAB365G 
SAB36oQ 
SAB3670 
SAB368o 
SA63690 
SAB3700 
SAB37lw 
SAB372u 
SAB3733 
SAB3740 
SAd3?5o 
SAB376U 


103 


hz=savalt 

SAB377u 

H8=SA V3URS 

SAB378J 

OELP*SAVQELP 

SAB3790 

GO  TO  1060 

SA8383  L 

790 

KCASE*SAVCAS£ 

SAB361C 

HZ-SAVALT 

SA3382u 

OELP=SAVO£LP 

SAB383C 

GO  TO  1060 

SAB3640 

oQO 

WRITE  (6,1370 » 

SAB3650 

WRITE  (6,1320) 

SAB38bu 

WRITE  (6,1360)  NIT 

SAB3o7u 

WRITE  ( 6, 137ij  ) 

SAB386U 

IF  (XIHB.GT.0..OR.XIHZ.GT.0.)  GO  TO  610 

SAB3690 

IF  (KOELT • GT * 0 )  GO  TO  820 

SA839JU 

GO  TC  1060 

SAB391U 

810 

KCASE*3 AVCASt 

SAB392u 

HZ=SAVALT 

6AB3930 

H8=SAV8URS 

SA83940 

OEL=>  =  SAVOELP 

SABZ950 

GO  TO  1060 

SAB390U 

823 

KCAS£sSAVCAS£ 

SAB397U 

HZ=SAVALT 

SAB396u 

0£*a*S A VOELP 

SAB399U 

GO  TO  1060 

SAB4000 

630 

IF  (PMVO)  660,660,640 

SAB4u  It. 

640 

PHl/R»PMV 

SAB4u2L 

NIT=NIT*1 

SAB4u3u 

XITER*XITER*1. 

SAB40<,0 

IF  (AB3(PMVR-PMVD)-.01)  660,660,850 

SAB4k.5  u 

650 

DELP=OELPMPMVO/PMVR)«*.33 

5>AB4ldu 

IF  (NIT.GT.li  GO  TO  21C 

SAB40  7 1 

GO  TO  200 

SAB4060 

650 

WRITE  (6,1240)  IO (6 ) , TSA, IO (8) , SFV, IJ(25 ) ,Q, 10 (10 ) ,PMV 

SAB4u 9 . 

WRITE  (6,1240  )  IO  (11) , POO, 10(26) ,RHOZ, 10(22) ,PDOOP ,ID (23) ,POHV 

SAB41UU 

WRITE  (6,1240)  10(24), POOO, 10(27) ,SSZ, 10(14), R,I0(15)*ALFA 

SAB411u 

IF  (HB.IT. 25000. )  GO  TO  670 

S AB412 1 

WRITE  (6,1240)  10(28), CFF 

SAB4l3u 

WRITE  (6,1290)  WOR 

SAB414u 

GO  TO  680 

SABhIsu 

670 

WRITE  (6,1300) 

SAB41oO 

663 

IF  (XIT ER.EQ.O, I  GO  TO  106C 

SAB41 7u 

WRITE  (6,1370) 

SAB4x8i 

WRITE  (6,1320) 

SAB419L 

WRITE  (6,1360)  NIT 

SAB4200 

WRITE  (6,1370) 

SAB421U 

GO  (0  1060 

SAB422  b 

893 

ALFA-0.3 

SAB423u 

SOEIP-OELP/ (PBR*P8PZ**AIFA) 

& A 842*0 

00ELP-"“0SLP*AL0G(PBPZ)/(PBR*PBPZ**ALFA) 

SAB425b 

900 

J=1 

SAB420G 

IF  »CjiLP-CFS)  920,910,910 

SAB427  u 

m 


913  J*2  SAB4260 

920  PP»-CF11(J)*CF22  (J)*ALOGlJ  (SOELP )  +CF33  ( J )  *  (ALOGlu  ( SOELP  )  ♦CF<*4  ( SAB429t 

1J)*  (AL0G1Q( SOELP  )**3)+CF55(  J)*  (ALOGU  (SOELP) **4>  SAB43o«, 

RBAR=13.**PPP  SA843lo 

IF  (HB.EQtHZI  GO  TO  960  SAB*,320 

AA=AL06lO  (2  #  71828 )/SQ£L?  SAB<*33u 

B8=2.*AL0G1Q (SOELP)*AA  SAB43hu 

CC=3.MAL0G1Q  (SO£LP)**2)*AA  SAB435L 

00-4 . * ( ALOGlO (S0£LP)**3)*AA  SAB4360 

Oa3X=CF22  ( J )  *AA+CF33 ( J )*BB+CF44  (JI*GC*CF55(J)*QD  SAB<*37u 

ORBAR=RBAR*ALOG(lfl  •  )*0P0X  SAB**38C 

CF<»=0.  SAB439o 

00  930  11=1,6  SAB4400 

IF  (RBAR-CFR(II) )  943 ,930 ,930  SAB441U 

933  CONTINUE  SAB4h24 

11=7  SAB443C 

Cr4=-.338  SABhhal 

940  SMF=(CF1(II)*RBAR*CF2 (III  ) *RBAR*CF3 (II)+CF4*ALOGlO (RBAR)  SAB4**5u 

CA»0=2.*CFl(II)*RBAR*CF2(II)+CF*,*AL0GlC  (2.716261/RBAR  SABh46o 

CAPQ=CAPO*DRBAR*OOELP  SAB4h7J 

ALF3= ALFA  SAB44«w 

ALFA= (SMF-ALFO*CAPQI/ (l.-CAPQ)  SA8449u 

IF  (ABS(ALFA-ALFO)-.OOll  960,960,353  SAB*,5j6 

SOcLP=OELP/(PBR*PBPZ**ALFAI  SAB451 u 

OOELP=-OiLP*ALOG(PBPZ)/(?BR*P8PZ**ALFA)  SAB452* 

GO  TO  903  SAB<»53u 

SR=RBARMW/PBR)**. 333333  SAB*,540 

CALL  TRIPNT  (KCASEI  SAB4550 

IF  (XKK.LE.l.Q)  GO  TO  980  SABVsou 

*SAB457g 

IPR031=1  SAB4580 

IF  (TSA.GT.0.0)  TSACM=TSA  SAB4590 

GO  TO  1130  SAB460 u 

HABS=A9S(HZ-HB)  SAB4610 

SR=SORT  <HABS**2MHABS*. 000011**2)  SAB462c 

SR=SR/100Q.  SAB4O30 

KCAS£=1  SA84640 

K0PT=0  SAB46»b 

IF  (NIT.GT.l)  GO  TO  21C  SAB46bt 

GO  TO  203  SAB467u 

993  IF  (FR.Nt.1.0)  SR=RBARMFR*W/PBR)**.  333333  SAB4680 

IF  (XKK-1.)  990,1000,1000  SAB4690 

993  HORF=SORT(  ( SRMCQQ .  ) **2- ( ( ABS  (HZ -HB)  >  **2)  >  SAB4730 

HORN=HORF*.  00016%  SAB4710 

GO  TO  1010  SAB4720 

100C  HORF=0.  SAB4730 

H0RN=0.  SA6“7%y 

131C  WRITE  (6,1220)  10  (5 ) ,  W,IO  ( 9) ,  OELP,  13  (2 )  ,HZ,10  (3) ,  HG,  10  (<♦)  ,  HB  SAB%75u 

WRITE  (6,1240)  10(1) ,SR, 10(131 , RBAR, 10(12) ,SO£LP, 10(7) ,FR  SA84760 

WRITE  (6,12<i0>  101(11, HORF.IOl  (2)  .HORN  SAB477U 

IF  (KOPT.EQ.l)  GO  TO  550  SABWBu 


950 

953 

C 

970 


105 


1320 


1331 

1J4L 


1350 

1350 


10/C 


13SC 


139C 


HOC 


1110 


IF  (HB.LT. 25000.)  GO  TO  133J 
WRITE  (6,1240)  10(20), CFF 
WRITE  (6,1293 l  WOR 
GO  TO  1340 
WRITE  (6,1303) 

IF  (JTa.EQ.O.)  GO  TO  1C63 
LPL=LPL+100 

WRITE  (6,1310)  JTP.NPT 
DUMYl=AHAXi(STP(NPT),HTP(NPT>)-.2 

CALL  GRAPH  (3  «  1, 10 , 1  j , 9HH0R  RANG;,8HACTITU0E,LPL,0UHVl,0UNYi,9. , 
1,1«,1.) 


SA8479w 
SA348. 0 
SA8481Q 
SAB462b 
SA8483w 
SA8464, 
S A 84 83 0 
SAB460. 
SA8487 w 
9.SA84880 
SA84890 


CALL  GRAPH  (5«NPT,1G,1C ,9HH0R  RANGE, dHALl ITUGE.LPL ,STf> , HTP , 9. , 9. ,iSA849ub 
1,,1.)  SAB491u 


CALL  GRAPH  (C)  SA8492c 
00  1350  1=1, JTP  SA8493Q 
STP  ( JTa )  =0  •  SA8494L 
HTP (JTP) =0.  SA8495u 
IF  (XIH8.67.0..0R.XIHZ.GT .C.)  GO  TO  50  SAB49o 0 
CHK=2.  SA84970 
IF  (KOELT.LE.u)  GO  TO  5i  SAB498. 
INCOMP=3  SA8499 3 


N=N*1  SA850u  <, 
IF  (N.GT.12)  GO  TO  50  SA85010 
GO  TO  (1100,1070,1110),  KCASE  SA85C20 
H8=SUBS (N)  SA85u3u 
IF  (H8.LT. 25000. .0R.H8.GE. 250003.)  GO  TO  l„»u  SAB5u4u 
CALL  SETUP  (ACF, 1,2, 13,0,0,0, 0,0)  SAB5050 
CALL  MACURc  (CF,H8,Q,d,3,U,3,LtR,CFF)  SAB5w68 
WOR=W  SAB5u7u 
W=CFF*W  SA8508C 
GO  TO  1090  SAB5090 
IF  (HB.LT. 253000.)  GO  TO  1090  SAB5iu<. 
WRITE  (6,1260)  SA85111) 
WRITE  (6,1273)  H8  SA85123 
GO  TO  1060  SA8513u 


JTa=0 

SA85144 

NPT  =  0 

r»A85l5u 

CA.L  ATHOS  (H8,TtMP(3) ,0£N ,RH08,TR ,P3R,SSB,VC ,KER) 

SA85iob 

IF  (KER.NE.l)  GO  TO  300 

SA8517U 

P8=P8R*PSL 

SAB510U 

NIT  =  C 

SA35l5w 

GO  TO  433 

SA852jo 

SR=SUBS (N)/1COO.O 

SAB5210 

NJ.T  =0 

SA8522u 

GO  TO  440 

SA85230 

IF  (HB.LT. 25300.)  GO  TO  1123 

SA85244 

W0R=SU8S (N) 

SAB5250 

M=SU8S<N)*CFF 

SA85264 

NIT  =  0 

SA8527C 

IF  (W.GT.O.)  GO  TO  433 

SA8528U 

GO  TO  440 

SA85293 

1% 


W=SUBS(N) 

NITsO 

IF  (W.GT.O,)  GO  TO  430 
GO  TO  440 


SAB53ju 
SA353lw 
SAB532 u 
SA3533g 


♦♦*»****♦***♦♦**♦**•**•*****•**•*  *SAB53'4U 


SRCH^SR 

HZCH=HZ 

HGCM=HG 

HBCM*HB 

HC1-H 

OELPCM*OELP 

TSA=TSACM 

RETURN 


1220  FORMAT  < 1H1 , 45X , 5A10 , /,55X , 3A10 , /// ) 


SAB535  v, 
SA353oi 
SAB637 u 
SAB5360 
SAB539- 
S  AB5**u  u 
SAB541U 
SAB5420 
►SAB5430 
SAB544g 
SAB545G 
►SAB54ou 
SAB54 7  U 
KSAB546g 
SAB54 9u 
SAB55J C 
SAB651G 
SAB552u 


FORMAT  <///17H  STATEMENT  IhO  ///)  SAB55J C 

FORMAT  <///l7H  STATEMENT  160  ///)  SAB551G 

FORMAT  <///l7H  STATEMENT  190  ///)  SAB552G 

FORMAT  <1H1,////,1GX,65HCASE  INPUT  ERROR  -  KCASE  GREATER  THAN  3  -  SAB5b3li 
1PROCEEOIHG  TO  NEXT  CASE)  SAB5s4w 

FORMAT  ( 1M  ,////, 10X.80HSLANT  RANGE  FOUND  EQUAL  TO  Zc.RO  IN  U VERPRESAB5550 
1SSURE  SOLUTION  PROCEEDING  TO  NEXT  CASE)  SA355bG 

FORMAT  C1H  ,////, 1CX,67HYIEL0  FOUND  EQUAL  TO  ZERO  IN  RANGE  S0LUTI0SAB557C 


IN  PROCEEOING  TO  NEXT  CASE) 

FORMAT  (1H  ,45X,5A10,/,55X,3A10,///) 


SAB556U 

SAB5590 


FORMAT  <1MQ,20X,4?HTHIS  CASE  MUST  BE  RUN  WITH  STANDARD  TEMPcKATURESAPSbOl) 
L)  SAE5blu 

FORMAT  ( 1H0  » o  (4X, A6,1PE12  •  5)  )  SAB562- 

FORMAT  (1H1 «////« 6 (4X ,A6, 1PE12,3) )  SAB5630 

FORMAT  (lH0,22X,4(4X,Afc,lPEl2.B))  SAB564L 

FORMAT  ( 1HQ  ,8HATt*0S  ER,I2,2H  =  ,I3)  SABbobu 

FORMAT  <1M<),///,48X,37H8LAST  EFFECTS  ARE  ESSENTIALLY  REDUCED,// ,46SAB5bbL 
1X.24HT0  ZERO  AT  THIS  ALTITUDE)  SAB5b70 

FORMAT  <1H0,47X,5HHB  *  rlPE12.5)  SAB5b8G 

FORMAT  (5bX , 12H(GUST  INPUT ) ,// ,56X ,5 HPMV  =,£12.3,/)  SAB5b9g 

FORNAT  ( 1H0 , 2 bX,3bH ORIGINAL  WEAPON  YIELO  AS  INPUTEO <KT) , lPEiE. &)  SAB57g c 
FORMAT  <1HG,22X,39HYIEL0  CORRECTION  FACTOR  IS  EQUAL  TO  ONE)  SAB571G 

FORMAT  UHO.bHJTP  =  ,Ifc,//,lX,bHNPT  =  ,Ib)  5AB5724 

FORMAT  ( 1H0 ,9X,55HTHE  GUST  VELOCITY  RECEIVEO  IS  WITHIN  ONE  PERCENT SAB573L 
1  OF  THE ,//,!CX,49H0ESIRE0  VALUE  -  NO  FURTHER  ITERATION  IS  N£CESSARSABb74u 
2 Y)  SAB57bu 

FORMAT  «1H0,9X,54HTHE  OVERPRESSURE  RECEIVED  IS  WITHIN  ONE  PcRCENT  SABS76 u 
10F  THE,//*10X , 49H0ESIRLD  VALUE  -  NO  FURTHER  ITERATION  IS  NtCtSSARYSAB577u 
2)  SAB578U 

FORMAT  <1H1,5/,1X,134(1H*),3/»1QX,51HTHIS  PROBLEM  MUST  BE  RUN  MITHSAB5790 

1  A  STANOARO  ATMOSPHERE, // , 1JX , 4bHIF  NON  STANOARO  ATMOSPHERE  IS  STISAU58JC 


107 


oooooooooooooooo 


13  5C 


1360 

1370 

1380 


1390 


2LL  OESIREO  AN,//,lGX,55HINCREMLNrAL  HEIGHT  OF  BURST  OR  RcCtlVtR  MASAB561C 
3 V  MOT  BE  USEO,3/,10X,4lHt.G.  SET  XIH8  ANO  XIHZ  EQUAL  TO  ZERO  AND,/SAB582o 
4/* 10X , 31HRUN  EACH  CONDITION  INDIVIOUALLY ,3/. 1CX,53HTHE  FOLLOWING  OSAB5630 
5 UT 3 U T  IS  VALIO  FOR  STANOARO  ATMOSPHERE ,3/ ,1X, 134 (1H*) )  SAB5840 

FORMAT  (1H1,5/,1X,134(1H*) ,3/ ,1DX ,36HTHE  KDELT  =  1  OPTION  HAY  NOT  SAB565G 


1BE  JSEO,//, 10X.37HWITH  AN  INCREMENTAL  BURST  OR  RECEIVER, 3/ ,14X , 41HSAB586G 
2E.G.  IF  KOELT  =  1  -  XIHB  AND  XIHZ  MUST  BE ,// , 10X , 13HEQUAL  TO  ZERO,SAB587Q 
33/ , 10  X,  33HIN  THE  FOLLOWING  OUTPUT  KDELT  *  u , 3/, IX , 134 <1H* ) )  SAB5880 

FORMAT  ( 1HQ , 9X ,23HNUMB£R  OF  ITERATIONS  *  ,12)  SAB589G 

FORMAT  ( 1H0 , 134 (1H*) )  SAB591U 

FORMAT  (10/,45X,<,0 (1H*) ,3/ ,*5X,40H*  AN  OVERPRESSURE  SOLUTION  CASAB591Q 
1NNOT  *,/,45X,40H*  Bl  OBTAINEO  WITH  THE  GIVEN  *,/,4SX, **SAB5920 

2 OH*  INPUT  GEOMETRY  *,// ,0llX,4HHB  = ,E12 .5 ,/ , 6SAB593a 

30X.4HHZ  =,£12.5,/,6QX,*HSR  =  ,£12 .5  ,//,  45X  ,40  H*  THE  PROGRAM  HlLLSABSSKc 

4  PROCEED  WITH  *,/,43X,40H*  THE  NEXT  CASE  SAB5950 

5  *,3/,45X,40  (IN*))  SAB5S6C 

FORMAT  (10/.45X.40  (1H*)  ,3/ ,**5X  ,  4]H*  NO  TRIPLE  POINT  CALCULAT IOSAB597C 

IN  *,/,45X,40H*  REQUIRED  -  3URST  ANO  YIELD  *,/,4SX,4SAB598c 

2 OH*  COMBINATION  REQUIRES  GROUND  *,/,45X,40H*  BURST  CRSAB599C 

3ITERIA  **//*6JX,5HW  =  ,FlU,2»/,buX* 5HHB  =  ,  Fla . SAB6GUC 

42./, BOX, 15HFR  =  1. 60 ,// , 4SX, 43 H*  ALL  RtCclVERS  FALL  MITHSABBOlu 

5IN  * ,/ *45X , 40 M*  TRIPLE  POINT  PATH  *,//,hSAB6020 

65X.40H*  THE  PROGRAM  MILL  PROCEED  WITH  *,/,4?X,4 jH*  THE  SA36c3u 

7NEXT  CASE  *,3/,45X,40  (1H*) )  *  SAB6c4u 

END  SA36050* 

SUBROUTINE  TRIPNT  (KCASE)  TPN  10 


SUBROUTINE  TRIPNT  CALCULATES  LIMITING  ANGLt  FOR  REGULAR  REFlECTIONTPN 
ANO  PREDICTS  WHETHER  RECEIVER  IS  IK  OUT  OF  THE  FUStO  SHOCK  TPN 


REGION 

ROUTINE  REQUIREMENTS- 

NUMEROUS  PARAMETERS  FORM  MAIN  ROUTINE  THROUGH  COMMON 
CALLS  SUBROUTINES  SETUP  ANO  HACURE 

CALLING  SEQUENCE 
WHERE- 

KCASt=l  FOR  OVERPRESSURE  SOLUTION 

2  FOR  TRIPLE  POINT  PATH  SOLUTION 

3  FOR  RANGE  SOLUTION 


TPN 

TPN 

TPN 

T3N 

TPN 

TPN 

TPN 

TPN 

TPN 

TPN 

TPN 


3L 

4a 

SO 

be 

7e 

80 

9e 

10  a 
110 
12b 

1 3  a 
140 
160 


CALL  TRIPNT (KCASE)  TPN  17b 

COMM] N  /TRI/  PZ«PG,PB,HZ.HG,HB,PZR,PGR.PBR,M,SR«FR,SR£, ALPltR, ALPlTPN  18c 
IE, R90,P8PZ,R,PBRW, INCOMP  TPN  190 

COMMON  /SENSE/  CFS  TPN  200 

COMMON  /COLO/  CFU  <2)  ,CF22<2)  ,CF33  <21  ,CF4»»(2)  ,CF55<2)  ,CFR(o)  ,CF1(7TPN  21c 
1 1 ,CF2  (7) . CF3 ( 7 )  TPN  22 c 

COMMON  /TAB/  TA31 I C69I ,TABlO '691 ,T A92I <62 ) ,T AB20 (62) , TA33 X(b8) .TABTPN  230 
1 30(69), TAB4I (id) ,7AB40(18) ,TAB5I (26) ,TAB50 (26 ) ,TAB6I (69) , T ABbO (69 ) TPN  240 
COMMON  /CON/  UL2 (7 ) ,UL3 (8) , UL4 (8 ) , UL5 (5) , Ch (7 ) ,C5  <7 ) ,C6 ( 7 ) ,C7(8> ,CTPN  25« 
1 8(8)  ,C9(8) ,C10 (8) ,C11(6),C12(8),P2(8)  ,P3 (8),Alt(41),ACF(l3) ,CF  (13) TPN  26c 


108 


13 

23 


30 


43 


50 

60 


COMMON  /PNT/  RA»ST0,PHIR,SH3,Sr,XKK,ALTSRG.HT,XKKX  TPN  27u 

COMMON  /OVP/  OELP,OELPD,DELPR,CONT ,NIT,XITtR  TPN  260 

DIMENSION  ALPHA  <41 ) •  IHEOK5.3),  I0J28)  TPN  29b 

DATA  (IHEOl  (J)  * J=6  *10  )/53H  TRIPLE  POINT  PATH  SOLUTION  TPN  3bb 

1  /  TPN  3lt 

DATA  « 10 « J ) « J  =  l*  28) /2HSR*2HHZ*2Hi(G*2HHB*lHW*3HTSA*2HFR*3HSFV *«*HOE.lTPN  32b 

1P.3HPMV ,3HP00,5HS0£LP.4HRBAR,lHR,<*HALFA*3HSR£,5HALPi.E,3H6T3  ,2HRA,2TPN  33a 

2HST,2HHT,5HP000P,4HP0MV,4HPD00,lrttl,4HRH0Z.3HSSZ.3HCFF/  TPN  34a 

P5PB=PG/PB  TPN  35u 

ALT= (HB-HG) /103Q • 0  TPN  3ob 

R*145.0*N**U.4/I3a0.0  TPN  37u 

SHB=ALT*PBRW  TPN  38u 

SH8B=ALT/H**»  3333  TPN  39b 

IF  (SHBB.GT.2.5)  GO  TO  110  TPN  4b 0 

IF  (R.LT .ALT)  GO  TO  30  TPN  4i& 

FR=1 » 6  TPN  -*20 

IF  (SR.NE.O.)  GO  TO  10  TPN  43b 

XK=1.  TPN  4**b 

PRINT  220  TPN  45b 

GO  TO  23  TPN  hou 

XK=ABS(HZ-HB)/(SRUQOO.O)  TPN  47 L 

IF  ( (ABS(XK-l.J) .LE..QC2)  XK=1.  TPN  48b 

IF  (XK.LE.l.Q)  GO  TO  200  TPN  <*90 

GO  TO  170  TPN  50b 

XI=C.O  TPN  51b 

RBAR=ALT*Pf  •'M  TPN  520 

CALL  SETUP  (TAB2I, 1,2, 62, 0,0, 0,0,0)  TPN  53t 

CALL  MACURE  (TA820,RBAR,fl , 0 .0 » C . J t LER, ALFA)  TPN  540 

00  100  J=1 • 41  TPN  550 

ALFA=0.  TPN  560 

XI=XI+0.025  TPN  570 

IF  (XI.GT.1.0)  XI=1.0  TPN  58b 

OEl.PG=PG/XI-PG  TPN  590 

SOELP=OELPG/(PBR*PGPB**ALFA)  TPN  60b 

00£LP=-aELPG*ALOG(PGPB)/(PBR*P6P3**ALFA>  TPN  610 

K=1  TPN  62b 

IF  (SOELP-CFS)  60*50*51  TPN  63u 

H’-Z  TPN  btv 

PPP=CF11  (r,)+CF22(K)  *ALOG10  (SOELP)  +CF33( K>  * (ALCG1Q (SDtLP)  **2) +GF44 (TPN  b5  0 


70 


1K)*(ALOG10 (SOELP ) **3) +CF55 (K) * (ALOGU (SOELP) ♦♦4) 

TPN 

bo. 

RBAR=13 •v 'PPP 

TPN 

67a 

AA=ALOClO (2,71828) /SOELP 

TPN 

bdb 

8B=2. *ALOG10 (SOELP) *AA 

TPN 

690 

CC=3.MAL0Gr  (SOELP ) **2) *A A 

TPN 

7.  b 

00=4,* (ALOG1Q (SQELP)**3)*AA 

TPN 

71b 

0PDX=CF22 ( K) * AA+CF  33 ( K) *8B+CF  44 (K) *CG+CF55 (K)*00 

TPN 

72  b 

ORBAR=RBAR*ALOG(10.)*OPOX 

TPN 

73u 

CF4=Q. 

TPN 

7**b 

DO  70  11=1*6 

TPN 

75b 

IF  (RBAR-CFR(II) )  80.7C.70 

TPN 

760 

CONTINUE 

TPN 

77  0 
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k 


11*7 

TPN  760 

CF4=-,Q3fl 

TPN  79b 

83 

SMF=<CF1(II)*RBAR*CF2(II)  )*R3»sR*CF3<II)+CF4*AL0G13<RBAR> 

fPN  Oju 

CA90=2.*CF1 (I I )*RBAR+CF2 (I I) +CF4*ALO  GIG ( 2*  ?182fl)/RBAR 

TPN  61u 

CAPQ=CAPG*DRBAR*QQELP 

TPN  82o 

ALFO=ALFA 

TPN  63m 

ALFA"-  (SMF-ALFO*CAPQ) / (1 *-CAPQ) 

TPN  6**u 

IF  UBi(ALFA-ALFO)-.OOl)  90*90,40 

TPN  850 

90 

ALTSRG=ALT/ (RBAR* (W/PBR)**. 333333) 

TPN  8o6 

IF  (ALTSRG.GT.1,J0)  GO  TO  100 

TPN  874 

ALPHA (J) = ACOS (ALTSRG)*57.296 

TPN  86b 

IF  (ALPHA(J)  . GT . AlE  (o ) )  GO  TO  1<*J 

TPN  89b 

130 

CONTINUE 

TPN  9C0 

110 

IF  <KCASE<NE< 2 )  GO  TO  126 

TPN  91, 0 

INCOMP=l 

TPN  92b 

WRITE  (6,230)  (IH£D1( J,KCAS£)  ,J*1,5) 

TPN  936 

WRITE  (6,240) 

TPN  940 

WRITE  (6,250)  HB 

TPN  95b 

RETURN 

TPN  96 u 

120 

FR*1. 0 

TPN  976 

IF  (XITtR.GT <1<<OR<NIT< GT .1)  GO  TO  130 

T°N  960 

PRINT  260 

TPN  996 

130 

XK=A3S (HZ-HB, /(SR*l00u<0) 

TPNIObb 

IF  ((ABS(XK-1.)).LE..0C2)  XK*1. 

TPNlolO 

IF  (XK,Lc*l.a)  GO  TO  20 0 

TPN1020 

GO  TO  170 

TPN1436 

140 

IF  (J.NE.l)  GO  TO  150 

TPNlb<,„ 

ALPlE=Alc(l) 

TPNluSb 

GO  TO  160 

TPNlu6b 

150 

ALP1E*( (AlE <Ji -AlE (J-l))* (ALPHA (J-l) -AlE < J-l) > /(AlE (Ji -Alt < J-l) 

-ALTPNlu70 

1PHA (J)+ALPHA ( J-l) )  -frAlE (J)  ) 

TPNlwdu 

160 

ALPlER=ALPlE/57.296 

TPNlt»9b 

SRE=A  LT/COS (ALP1ER) 

TPNll&b 

IF  (KCASE.EQ.2)  GO  TO  200 

TPN1116 

AL9HI*R90 

TPN112 J 

IF  (HZ*EQ.HB)  GO  TO  190 

TPNll.Tu 

XK=ABS(HZ-HB)/(SR*1000.0) 

TPNllbL 

IF  ((ABS(XK-1.)).LE,.002)  XK=1. 

TPN1156 

IF  (XK.LE<1<0)  GO  TO  160 

TPN116J 

170 

WRITE  (6,270)  XK 

TPNll7u 

WRITE  (6,280)  10(5) ,W, 10(9) ,OELP 

TPH118U 

WRITE  (6,?80)  10(2) , HZ, IO(3), HG 

TPNU9U 

WRITE  (6,280)  10(4) ,HB, 10(1), SR 

TPN120  u 

WRITE  (6,290) 

TPN1214 

OEL**O*0cLP 

TPN1224 

CONT*CONT+l * 

TPN1233 

WRITE  (6,300) 

TPNl2*,u 

XKK=XK 

TPN1256 

XKKX=XK 

TPN1266 

RETURN 

TPN1270 

180 

XKK=XK 

TPN128u 

110 


190 


200 

213 

C 

C 

c 

220 

230 

240 

250 

260 


270 

233 

230 

300 


C 


r» 

u 


c 


XK-ASIM ( XK) 

IF  (HZ. LT. H8)  ALPHI=ALPHI-XK 
IF  (HZ.GT.HB)  ALPHI=ALPHI*X< 

AL5HIR=ALPHI- ALP  1£R 

CALL  SETUP  (TAB4l,l,2,18,0,J,0,Q,3) 

CALL  HACURE  ( TAB-.0 , ALPHIR ,0 ,0 , 0 , 3, C , LER ,PHIR) 
RA=SRE*C0S ( ALP1£R-PHIR)/C0S (ALPHI-PHIR) 
RA=ABS(RA) 

FR=l.fl 

IF  (XKKX.GT.J.i  GO  TO  210 

IF  (RA.GT.SR)  GO  TO  210 

CALL  SETUP  (TAB5I, 1,2, 26,0, 3, 3,3,3) 

CALL  HACURE  ( TABS O , SH8, 0 , 0 ,0,0 ,0,L£R,FR) 

IF  KSH8.LT. 1.54)  GO  TO  210 

IF  (ISR-RAI.LT. 0.11  GO  TO  210 

FR=2.33-0.025*RBAR 

XKK=XK 

RETJRN 


TPN123w 
TPN130G 
TPN1310 
TPNli2u 
TPN1330 
TPNl3*n.’ 
TPN135L 
TPN1366 
TPNl37u 
TPN1380 
TPN1390 
TPN1430 
TPN.W10 
TPN142J 
TPN1M30 
TPN1H40 
TPN1456 
TPH140J 
TPN1h7  0 
TPNlndu 
TPN1h9U 

FORHAT  ( 29H  SR~0.0  IN  SUBROUTINE  TRIPNT  )  TPN1500 

FORMAT  (1H1 ,45X,5A10,///t  TPN1513 

FORHAT  ( 1NQ ,///»48X ,35HINPUT  PARAHETERS  ARE  NOT  COMPAT IBLc , //, 48X, TPN152U 
134HF0R  THE  TRIPLE  POINT  PATH  SOLUTION)  TPN153u 

FORHAT  ( 1H0 ,47X.5HHB  =  *1PE12.5)  TPN15hc 

FORHAT  (3/, IX , 134 (1H* ) ,3/ , 13X «  42HSCAlc0  HEIGHT  OF  BURST  IS  GREATERTPN1550 
1  THAN  2.5, //,10X *  51HG ROUND  EFFECT  AHPLIFICATION  FACTOR  SET  cQUAL  TTPNl56u 
20  1. 0, 3/, IX, 134(1 H* I, 3/)  TPN157o 

FORMAT  (38H  ***ARG  OF  ASIN  (X)  OUT  OF  RANGt.  X= ,tl6. »,////>  TPN156„ 

FORHAT  ( 1HO  ,  22X ,  2  (4X, Au, 1PE12. 5 ) )  TPN159li 

FORHAT  (IX, 6/)  TPNlouw 

FORHAT  ( 13  X ,  66HTHE  INPUT  GIVEN  IS  INCOMPATABLc  KITH  A  POSSIBLt  PHYTPN16U 
1SICAL  CONDITION, // , 13 X, 39HTWO  ALTERNATE  SETS  OF  OUTPUT  ARE  GIVEN-, TPNlb2L 
2 /,1 4X» 6 1H1- RECEIVER  OIRECTLY  ‘COVE  OR  BELOW  THE  BURST  DEP&UUING  ONTPNlb3t 
3  TH£»/,16X,57HINIT IAL  ORIENTATION  OF  RECEIVER  HIT H  RESPECT  TO  THE  TPNlo4t 
4BUP.ST  ,//,l4X,64H2-THE  AlTITUOE  AT  WHICH  THE  Dt SIRED  GUST  OR  OVtRPRTPNlb5G 
5ESSURE  0CGURRSs//,34X,lH*,/,34X,lH*,/,34X,lH*,/,34K,lH*,/,31X,7H**TPNlbbb 
6*4*** »/ »  3?X,5H*****»/,33X,3H***,/,34X»1H*)  TPNlb/0 

EN0  TPN168G- 

BLOCK  DATA  B02  lu 

BLOCK  OATA  CONTAINS  TABULATED  VALUES  USEO  IN  I  HE  MAIN  PROGRAH  B02  30 

AND  IN  SUBROUTINE  TRIPNT  B 02  <*u 


COMMON  /TRI/  PZ,PG,P8, HZ,HG,H3,PZR, PGR, PBR,H, SR, FR,SRE, AlPIcR, ALP1B02  bx 
1E»R90»PBPZ»R,PBRW  BD2  70 

COMMON  /TAB/  T AB1 1  (69)  ,TAB10  (69)  , T  AB2I  (62 1 , T AB20 (62)  , TAB3I  ( d9)  , TABB02  8.j 
130(69), TAB4K18)  ,TAB40(18)  ,TAB5I(26)  ,TAB50  (2b ) ,  TAB6I  (69 ) ,  TABoQ  (69 )  BD2  9w 
COMMON  /CON/  UL2(7> ,UL3(8) ,UL4(8) ,UL5(5) ,C4(7) ,C5<7. ,C6%7) ,C7(8) ,C3D2  100 
a  8 (8 ) ,C9(8) , Cl  0 !8 ) , Cll ( 8 ) >  C12 ( 8 ) ,P2(8),P3(3) ,A1E(41),ACF (13), CF (13)BD2  110 


111 


OAT  A  (TABU  (J)  ,  J=1  ,69 )  /  .  05  0  ,  .  0625,  .  0  75  » .  0  875  ,  .  1  a  6 , .  125  ,  .15  0  , .  175  ,  .  80  2  121 
1203,*225,.25j,#275*,3GC,,329,,39),.379,,4*ClM.450,,5yJ,,55b,.oub,t6  802  1 3  L 

250..  7 00  , .750, .800  . .850 , .900 ♦ . 95J il  • 3 JQ ,1 . 1*5 , 1 .22 1 , 1 . 35 0 , 1 . h92 ,1. 6802  140 

3 49 ,1.822, 2. 014,2.226, 2. 46 0,2.718, 3. 034, 3.  320 , 3.669,  h, 0 55 ,4 . 482 ,4 . 9802  15  0 
453,5. 474, 6« 05 0,6. 686 ,7. 389 ,8. 166, 9. 025, 9. 974 ,11. 023 ,12. 182 ,13. 464 ,802  lbu 
514.88 0,1 6. 445 ,18. 174 ,20. 586, 22. 193 ,24. 532, 27.113,29. 964, 33.115,36. B02  170 
6598, 40. 447,4h.701,50. 000,100. 00/  802  180 

OAT A  (TAQ10(J),J=1,69)/17200. ,8030. ,4240. ,249j ., lbou ., 900 . ,»4» . ,36802  190 

10. . 246. .166. .1 44 . .107 . .88.8.73.5.62. 7 « 54. 5 , 46 .o, 36o4 , 29 . 3 , 24 » 1 «2w . 802  2u c 
22,17 . 2, 14. 8, 12. 9, 11. 3, 9. 9, 8. 8, 7.3, 7.J, 6. 2, 5. 2 ,4.45, 3. 83, 3. 3. ,2.65, 602  2lb 

32. 48. 2. 10. 1. 85. 1. 62.1. 43. 1. 27. 1. 12. .  96. .87. .77.. 68. .  Uu , « 53, >47, .41602  22 u 
4 , • 36 , .32 , . 28 , . 252 , .222 , • 198, .1 74, • 15o, .139, c 124, • 113, • 1U 0 , • 091 , .06802  230 

53. .  0755. .C69,. 063, .0574, .0233/  802  24* 

OAT  A  TAB21/ 0«,.1,.2,.30,.35,.40,.45,.50,.55,.60,.65,.7u,.75,.80,. 8602  25 1 

15. .  9C, . 95, 1. 0, 1. 5, 2. 0, 2. 5, 3.0, 3.5, 4. 0,4. 5, 5.0, 5. 5, 6. j, 6. 5, 7. w, 7. 5, 602  2b 0 
28. 0, 6. 5, 9. 0,9. 5, 10. ,15. ,20. ,25., 30. ,35. ,40. ,45. ,50. ,55., 60., b5«,7u 602  270 

3. . 75. . 63. . 85«,  90. ,95«*  100. ,150. »23C.«  25  0.,3bl).,  35u»t4Qii., 45. .*506. 602  280 

4/  802  29u 

OAT  A  TA 320/. 020, .0625, .125, .1803, .2190,. 24ou , .2930, .3320,. 3o50 ,.39602  30  u 

110..  4150.. 4350.. 4530.. 4690. .4800.. 4900 ..4990  ,.5060  ,. 5490 ,. 5b20 , .56802  31u 

260.. 5673  , .  566G ,.5650, .5630  ,.5620, .5610, .5605, .5590  , .5580, .9375,. 55 802  32 u 
37C,. 5560,. 5540 ,.5535,. 6530,. 5475,. 5420 ,.5390,. 5360,. 5330,. 5310, .52802  330 
49C..5275,. 526 0, . 5230, .5220  ,. 5210, •  52  i0  » • 5190  , .5180 ,.5170,.9l6G,. 9 160 2  34* 

550. . 5080. .5020  , .4980, .4940, .49  8 90 ,.4870 ,. 4840/  802  350 

OATA  (TA34I(J),J=1,18>, (TA840C  * , J=1 , 18) /O.u ,5. 0, 10 . C , 15. j ,2u. * , 25802  360 

1.0, 30. 0,35. 0,40. 0,45. 0,50. 0,60  J, 70. 3,80.0,96. 0,160. 0,1 16. *«i.2w.O, 802  37„ 
20.0,3.5, ‘0.25, 0.50, 1.0, 2. 0,3. 5, 5. 0,7.0, 9. 5, 12 .5, 20. 0,28.0,36. 5, 45. 3302  380 
3,54.5,60.3,72.0/  802  390 

OATA  (TAB5I (J) , J= 1 , 26 ) , (TAB50 ( J) , J=1 ,2b> /0 .0 ,0 .1 , 0 .2 ,0 . 3,0 . 4 ,0 .5 ,0802  40* 
1. 6, 0,7, C  ■> 8, 0.9, 1.0, 1.1, 1.2, 1.3, 1,4, 1.5, 1.6,1. 7, 1,8, 1.9, 2. 0,2.1 ,2. 2 BO 2  410 
2, 2.  3, 2.  4, 2. 5, 1.60, 1.62, 1. 75, 2. 02, 2. 3 9, 2. 90 ,3. 93, 4. 30, 5. 00, 5. 46, 5. 5B02  h20 
36, 5. 73, 4. 45, 3. 51, 2. 88, 2. 45, 2. 12, 1.66,1. 65, 1.5j, 1.36, 1.25, 1.16,1. 08802  43 * 
4,1.03,1.00/  802  44b 

OATA  (TA36KJ),  J=  1, 59 )/.  050, .  0625,  .375,  .0875,  .100,.  125,  • 15j , .  175,.  B02  49U 

1200. . 225. .250. .275. .300. .3 25 . .350. .375. .400. .450. .500.. 550. .bOO,. 6B02  4o 0 

2  50,  .700,  .750,.  80  0,  ,850,  .900,  .950, 1,000,1. 10  5, 1.221, 1.350,  l.4*  92, 1 .6602  47  v 
349,1. 622 ,2.01*,, 2. 226, 2. 46 0, 2. 718, 3, 004, 3. 320, 3,669, 4.055, 4. h82, 4. 9802  43 u 
453,5, 47 4, 6. 050, 6. 686,7,309,8, 16 e, 9,025, 9. 97 4, 11. 023, 12. 16 2,13.464, BO 2  49b 
514.880,16.445,18.174,20.086,22. 198 , 2*». 532 ,27 , 113 ,29. 964 ,33. 115 ,36. 802  500 
6598, 40. 447, hh. 70.'., 50. 000,160.00/  802  5lu 

OATA  (TA360(J) , J«1 , 69 ) /. 00062 , . 0 0 106 ,. UO 1 70 , . u0255,. *0 363, . **638 , . B02  520 

108 994. . 01 43 2. .01954.. 02 555. .Q3239,»0 4032,. 0*90  ^,. 058*4,  .ub853,  .079802  530 

224..  09055.. 11481.. 14105.. 16905 ..19860.. 22955.. 26173.. 29501. .32929. 602  540 

3 • 36445  ,  .400  41 ,. 43710, . 474*4, »  555, . 646,. 749, .6o4,. 994,1.1*,, 1.30,1 . 4B02  55  * 
48, 1. 68, 1. 90, 2. 15, 2,43, 2,73, 3,07, 3.45, 3. 86, 4. 32, 4. 63, 5. 40, 6. « 2 , 6. 7 1B02  56 u 
5, 7. 47, 8. 32, 9. 25, 10 .29, 11. 43, 12. 69, 14, 0  9, 15. 64, 17. 34, 19. 23, 21. 32, 23B02  57u 
6.62,26.17,26.99,32.11,35.55,39.36,44.10,90.00/  B02  580 

OATA  (Jl.2(J),  J*l, 7  I/O. 3, .35,  .45,  3.6, 1.7 ,3 .8,10  ./,  CUL3  (  J)  ,  ,6  >/.  3802  59b 

135.. 5.1.0.2.5. 7.0.10.0.17.0.0.0/ , ( UL 4 ( J) » J=1 , 8 1 /. 28 ,u . 5 , . 85 ,1. 12 , 1802  60 U 

2.5,4.2,10.0,0.0/,  (UL5(J),Jsl,5)/,265, ,43, 1,66, 5.867375, 0.0/  802  610 

OATA  (C 4 ( J ) , J*l, 7 >/-. 724616, -.68, -.32,. 416667, -.071254, -.00 7659, -.802  62 u 
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oooooooooooooooooooo 


1001097/  BU2 

DATA  (C5(J)  ,J=1,7) , (C6 ( J) , J-1,7) , <C7 U) , J=l,8) , ( C8 ( J) , J=1 , 8) /. 480 4BU2 
198, -.110, .137, -.220033,. 277330,. 3  00  9 34,  .029527,. 167uo6, .16o2, . U724B02 
2, .1450, .321749, .171 84 7, .272 44 4,.  1608  75  ,- .  606061 ,  1 . 44  , .  j  9777  o  , .  4405802 
392, 0.0, -.00 0Q J83, 76. 202, 1.613863, -3. 554506,-3 .16, -.542223 ,-. 11 *293Bb2 
0,-0.00167,0.0,0.0/  BQ2 

DATA  (39 (J) , J=l,8) ,  (Clt  (J)  ,J=1, 6) ,  (C 11  ( J )  ,J=1,0) ,  (C12  ( J) ,  J=1 , 6 ) /2  .  BU2 
10003, 3. 9287  88, 3. 22, 1.904445, 1.4321 33, 1.u64659,l.li56289, 1.0,1. 15380B02 
26, —6. 2972 , —1. 57103 , —3  «C55p6,«  618421, »3u50ob7,— ,001w8276,— 3.,  —  .0 u  3  8 B0  2 
306,7.98050,3.0  357 1,6.01944,-1.  81976, -,6654b67 , «1220Jo9, j . J ,. u 10651 BD2 


00, -1.637971, -.305 ,-1.80889,2. 35118 ,1.1100,. 8 54207, 1.0/  B02 

DATA  (32(J)»J=l»8)»(P3<J)»J=l»8)/5*2.»l.»3.»-3»*7*2.»-2./  B02 

DATA  (Alt ( J ) , J=l, 01 ) /Ot ,0 ,39.6,39. 0,39.2, 39. 0, 39 .0,39.0, 39.4,39.1, B02 
139. 3, 39. 5, 35. 6, 39.9,00. 0,00.0,40.7 ,01.0,01.3,41.6, 02 . 0 , 02 .0,42.7,0602 
23.0,03.5,00.0 ,00.5,05.3,06.0,47. 1,08.0 ,49.5, 50. 8,52.3 , 54. 0 ,pb. 0 , 58BU2 
3.0,60.5,63.5,67.5,70.0,90 .0/  BU2 

OAT A  (CF(J),J=l,l3)/l.C,.96,.9b,.917,.83,«ob,.47 , .343, .265, .211,. 1BU2 
175, .103,1./  B02 

OAT  A  (ACF<J) , J=1,1L • -r  25000.  ,50  0  01.  ,52500.  ,7500  0.  ,075  00.  ,100000.  ,11B02 
12500.  ,12500  0. , 137500., 150 ICO. •  162500. , l750bu. ,25u0uj./  BD2 

END  BO 2 

SUBROUTINE  AT  MGS  (7.,  TM, SIGMA, RHO,  THETA,  DELTA,  CA,  AMU,  K)  ATM 

CALLING  SE4UENCE  ATM 

ATM 

CALL  ATM0S<Z,i>;,  SIGMA,  RHO,  THETA,  OELTA.CA,  AMU,  K)  ATM 

ATM 

Z  *  GEOMETRIC  ALTITUDE  (FT)  ATM 

TM  =  MOLECULAR  SCALE  TEMPERATURE  (OEGRttS  RANKIN)  ATM 

SIGMA  =  RATIO  OF  DENSITY  TO  THAT  AT  SEA  LEVEL  ATM 

RHO  *  DENSITY  LB-SEC**2-FT** (-4)  OR  SLUGS-FT**3  ATM 

THETA  =  RATIO  OF  TEMPERATURE  TO  THAT  AT  SEA  LEVEL  ATM 

DELTA  =  RATIO  OF  PRESSURE  TO  THAT  AT  SEA  LtVEL  ATM 

CA  =  SPEED  OF  SOUND  (FT/SEC)  ATM 

AMU  =  VISCOSITY  COEFFICIENT  (l.3-SEC-FT**2)  ATM 

ATM 

K  *•  1  NORMAL,  ATM 

=  2  ALTITUDE  GREATER  THAN  306930.  FT.,  ATM 

=  3  ALTITUDE  NEGATIVE,  ATM 

=  4  FLOATING  POINT  OVERFLOW,  ATM 

=  5  ALTITUDE  GREATER  THAN  3uOJ33.  FT.  AND  FLOATING  POINT  QVERFL, ATM 

DIMENSION  HPRIM8 (11) ,  TMB(ll),  SIGMAB(ll),  ALM(ll)  ATM 


DATA  (HPRIMB ( I), TMB (1), SI GMAB ( I), ALM (I), 1=1, ll)/6., 518. 608,1.06116 ATM 
lOOECO.-O .00356616 , 36089. 239, 389. 968, 2. 97 0695 8 t- 0 1, 0., 82924.997 ,389 ATM 
2 • 988, 3. 266575 1E-0  2 ,0. QG 164 592 , 154199.400, 508. 788 ,1.211 707 Jt-u 3, a , , ATM 
3173084.510 , 508.788 , 5. 8677 31 IE -04,-0. 90246668,259186. 350 ,298. 188,5. ATM 
48677311E-04 ,0  < , 295275. 590 , 298. 1 88, 1. 7926595E-06 , 0. 00 21945b , 344480*ATM 
5 190, 406. 188 ,9. 392 1519E-C8,C.O 1097280, 524934. 363,2386. 188, i .7656593ATM 
6E-1C,  0.93 548640 ,557742. 700, 2566.  188 ,5. 63246?7t-10 , 0. 0027432u , 65616ATM 
77. 90 0,2055.188, 2.5726 77  IE -10,0.3319212 4/  ATM 


63u 

044 

65  u 
660 
67  u 
00  0 
690 
7.ju 
714 
720 
73C 
7**4 

75u 
76u 
774 
780 
794 
04  u 
310 
6  2„ 
034- 
10 
20 
32 
'♦0 
5u 
60 
7  4 

04 

90 
100 
llu 
124 
134 
140 
150 
160 
170 
180 
190 
200 
214 
220 
234 
24u 
25u 
260 
27  3 
20u 
29U 
30  0 
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DATA  Q/O. 0 18744176/, RE/2. 0 S55531E37/ , S/198. 72/, PZ/2116. 

2/ , AhUZ/3. 

7ATM 

313 

1 

1372998E-37/, RHOZ/U. 00 23769/, TMZ/518. 686/ 

ATM 

32L 

L 

K=1 

ATM 

33u 

f 

IF  (Z)  13*30,20 

ATM 

340 

\ 

13 

K=3 

ATM 

353 

GO  TO  113 

ATM 

3o0 

1 

23 

IF  (Z.GT.3GG300.I  K=K  +  1 

ATM 

37  o 

1 

33 

HPRIM=(R£/  (RE+Z) )*Z 

ATM 

368 

00  40  Hsl,ll 

ATM 

390 

m 

IF  (HpRIrt-HPRIMB(M) i  50,63*40 

ATM 

4j  J 

1 

43 

CONTINUE 

ATM 

41b 

M=12 

ATM 

42u 

53 

M=M-1 

ATM 

43  0 

6) 

IF  ( ALM (M) )  70,83,70 

ATM 

44  0 

73 

TM=TMB(M) *ALM (M)* (HPRIM-HPRIMB (HI ) 

ATM 

453 

SI3MA*EXP( (1.0+<Q/ALM(M) » ) * (ALOG (T MB (M)/TMH  ) ♦SIGMAB(N) 

ATM 

4ou 

GO  TO  90 

ATH 

470 

80 

TM=TMB<M) 

ATM 

46b 

SIGMA=SIGMAB (M)*EXP  (-  (Q*  *i  HPP.IH-HPRIMB  (M)  )  )/TMB(M)  ) 

ATM 

49b 

93 

RH3rRHOZ*SIGMA 

ATM 

533 

THETA=TN/THZ 

ATM 

510 

OELTA*5IGNA*THETA 

ATM 

52u 

k 

CA=49.02177*SQRT IIKi 

ATM 

63b 

AMU= AHJZ *SQRT  (THETA**3)*(  (TMZ*S) / (TM+S) > 

ATM 

540 

CALL  OVERFL  (J) 

ATM 

550 

GO  TO  mO, 110),  J 

ATH 

560 

133 

K=K+3 

ATM 

57u 

113 

RETURN 

ATM 

560 

i 

END 

ATM 

590 

SUBROUTINE  SETUP  (X,NEXTR,N0,NA1,NA2,NA3,NA4,NA5,NA6) 

SEP 

lb 

C 

2b 

C 

SUBROUTINE  SETUP  SETS  UP  ARRAYS  FOR  TABLE  LOOK  UR 

ScP 

3b 

\ 

c 

SEP 

40 

c 

CALLING  SEQUENCE- 

SEP 

50 

a 

SEP 

60 

c 

CALL  SETUP (X, NEXTR.NO, NAl,NA2,NA3,NA^,NA5,NA6) 

SEP 

7b 

c 

WHERE 

SEP 

60 

c 

X  *  TABLE  OF  INQcPcNOENT  VARIABLES 

SEP 

90 

f 

c 

NEXTR=  0  NO  EXTRAPOLATION 

SEP 

10  b 

w 

=  1  EXTRAPOLATION  IS  DESIRED 

SEP 

113 

c 

NO  -  NUMBER  OF  DIMENSIONS  ( WHtN  Z=FIX,Y), 

NQ=3) 

SEP 

120 

c 

NA1  =  NO.  OF  VALUES  FOR  FIRST  INDEPENDENT 

VARIABLc 

SEP 

13u 

c 

NA2  =  NO.  OF  VALUES  FOR  SECONO  INOEPYOENT 

VARIABLE 

SEP 

140 

c 

NA3  =  NO.  OF  VALUES  FOR  THIRO  INDEPENDENT 

VARIABLE. 

SEP 

150 

c 

NA4  -  NO.  OF  VALUES  FOR  FOURTH  INDEPENDENT 

VARIABLc 

SEP 

160 

c 

NA5  =  NO.  OF  VALUES  FOR  FIFTH  INDEPENDENT 

VARIABLE 

ScP 

170 

c 

NA6  =  NO.  OF  VALUES  FOR  SIXTH  INDEPENDENT 

VARIABLC 

SEP 

180 

c 

SEP 

190 

c 

♦SEP 

20G 

COMMON  /TBLKUP/  LI , LF, NA <6 ) , XL < 10 3 ) , NNEX 

SEP 

21b 

DIMENSION  X«l),  X A  (6  > ,  NS(5>,  HJ(32),  RATIO(5),  NGR0UP(5),  ITOT(5)SEP 

220 

114 

r 

£ 

i 


00  10  I=ltNAl 

SEP 

23k 

1J 

XL( I) =X ( I) 

SzP 

24k 

NNEX=NEXTR 

SEP 

25u 

NA(i;=NAl 

SEP 

260 

NA(2)=NA2 

SEP 

270 

NA( 31 =NA3 

_ 

SEP 

26  <j 

NA(4)  =  NAt 

SEP 

2  90 

NA(5I=NA5 

SEP 

3ul 

NA (6 ) =  NA6 

SEP 

310 

Ll=2 

SEP 

32u 

LF=ND-1 

SEP 

330 

RETURN 

SEP 

3*i» 

END 

SEP 

35k 

SUBROUTINE  MACURE 

(Zt XAlt XA2t 

XA3tXA4fXA5t XA6 1 IE tZR) 

MAC 

10 

c 

******* *****************************4 

►MAC 

20 

c 

SUBROUTINE  MACURE 

EX -CUTES  AN 

N  DIMENSIONAL  TABLE  LOOK  UP 

MAC 

3k 

c 

WITH  EXTRAPOLATION  IF  OESIRED 

MAC 

4  J 

c 

MAC 

5k 

c 

CALLING  SEQUENCE- 

MAC 

50 

c 

MAC 

70 

c 

CALL  MACURE (Z  *  XA 1 

t  XA2  * XA3 t  XA4 

,XA5,XAbtIE,ZR) 

MAC 

8u 

rt 

*# 

WHERE 

MAC 

90 

c 

IE 

ERROR  CODE 

MAC 

100 

c 

0  INTERPOLATION  SUCCESSFUL 

MAC 

11C 

c 

1  INDEPENDENT  VARIABLES  NOT  IN  ASCENDING  ORDER 

MAC 

120 

c 

2  FOR  1=0, 

ARGUMENT  EXCEEDS  LIMITS  OF  TABLE 

MAC 

130 

c 

Z<  11  = 

F (XI  ,Y1,Z1) 

Z(13) =  F (X3t YltZl) 

MAC 

14k 

c 

Zt  21  = 

F  (  XI ,  Yl,  Z2) 

Z (14) =  F(X3,Y1,Z2) 

MAC 

150 

c 

Z<  31  = 

F(Xl.Y2tZl) 

Z (15)=  F(X3,Y2,Z1) 

MAC 

160 

c 

Z(  4l  = 

F (XI tY2tZ2) 

Z(16)=  F (X3t  Y2tZ2) 

MAC 

17k 

c 

Z(  51  = 

F(Xl,Y3tZH 

Z (171 =  F (X3 1 Y3  tZ 1 ) 

MAC 

18u 

c 

Z(  6 )  = 

F ( XI t Y3 1  Z2) 

Z  ( 18)  =  F(X3«Y3tZ2) 

MAC 

190 

c 

Z !  71  = 

F (X2 tYlt Zl) 

Z ( 19) =  F(X4, Yl.Zl) 

MAC 

20k 

c 

Z<  8 )  = 

F(X2,Y1,Z2I 

Z(20)=  F(X4,YltZ2) 

MAC 

21k 

c 

Z(  91  = 

F ( X2 1 Y2t  Zl) 

Z( 21) =  F(X4tY2tZl) 

MAC 

22  j 

c 

Z(10)= 

F(X2tY2«Z2) 

Z (22)=  FCX4.Y2, Z2) 

MAC 

230 

c 

Z(lll= 

F (X2  t Y3t  Zl 1 

Z (23)=  F (X4t Y3tZl) 

MAC 

2h0 

c 

Z(12)= 

F(X2»Y3»Z2) 

Z(24)=  F(X4.Y3, Z2) 

MAC 

25u 

c 

MAC 

2ol 

c 

27  0 

COMMON/T  8LKUP/L1 t 

LF  »N A  (6) ,X<100) tNEXTR 

MAC 

28L 

DIMENSION  Z(l),  XA  (6)  t  NS(5). 

WJ (32) t  RAT  10(5 ) t  NGR0UP(5),  IT0TX5JMAC 

29k 

IE=u 

MAC 

300 

XA ( 1 ) =X  A1 

MAC 

310 

XA (2) =XA2 

MAC 

32k 

X  A ( 3  > =XA3 

MAC 

33u 

XA (4 1 =XA4 

MAC 

340 

XA  T5 ) =XA5 

_ 

MAC 

350 

X  A ( 6 ) -XAb 

MAC 

3b  k 

00  100  I=1»LF 

MAC 

37  u 

L2=L1 +NA (II -2 

MAC 

38k 

11 


... ; 


•emsr-sw* JtnUalSfetM. 


10 


FO(JNOaO • 

MAG 

390 

DO  50  J=L1,L2 

MAG 

400 

IF  (X(J).GT.X(J-l))  GO  TO  13 

HAG 

411. 

IE=2 

MAC 

420 

RFTURN 

MAC 

43  0 

10 

IF  (FOUND. NE.O.)  GO  TO  50 

MAC 

440 

IF  (XA(I)~X(J~1>)  20,51.50 

MAG 

49  >1 

20 

IF  (J.GT.Ll)  GO  TO  40 

MAG 

461 

IF  (NEXTR.EQ.0)  GO  TO  30 

MAC 

470 

FOUNO=l. 

MAC 

480 

NS(II=L1-1 

MAC 

493 

GO  TO  50 

MAC 

530 

30 

IE=-1 

MAG 

51u 

RETURN 

MAC 

520 

40 

FO JND=1 . 

MAG 

531 

NS ( I ) = J-2 

MAC 

540 

51 

CONTIN JE 

MAC 

951 

IF  (FOUND)  90,60,90 

_____ _  . 

MAC 

560 

60 

IF  (XA (I) -X  (L2 1 )  80,83,70 

MAG 

573 

70 

IF  (NEXTR.NE.0)  GO  TO  63 

MAC 

58b 

IE=1 

MAC 

590 

RETURN 

MAC 

oOO 

60 

NS(II=L2-1 

MAC 

610 

93 

Ll=L2+2 

MAC 

62  w 

133 

CONTINUE 

MAC 

630 

C 

IN  NS (II  IS  THE  SUBSCRIPT  IN  THE  ARRAY  X 

SUCH  THAT 

MAC 

64  0 

C 

X(NS(III  IS  LESS  THAN  THE  ITH  ARGUHENT 

MAC 

650 

DO  110  1*1, LF 

MAC 

660 

K=NS(II 

MAC 

670 

RATIO(I)=(XA(I)-X(K)l/(X(K+ll-X(KI ) 

MAC 

o80 

c 

IN  RATIO  III  IS  TM‘i  RATIO  Or  X  ARG,  RATIO  (2)*RATI0  OF 

Y  £Tc7~ 

MAC 

691 

113 

CONTINUE 

MAC 

700 

NGROUP(ll=NS(l) 

MAC 

711 

NSUM-NA (1 ) 

MAC 

720 

OO  120  1=2, LF 

MAC 

73b 

NGROUP ( I ) -NS ( I l»NSUM 

MAC 

74b 

NSUH=NSUH+NA(I) 

MAC 

75i» 

120 

CONTINUE 

MAC 

7e0 

C 

IN  NGROUP(I)  IS  THE  SUBSCRIPT  OF  THE  ITH 

VARIABLE  SUCH 

MAC 

77  u 

c 

THAT  THE  TABLE  VALUE  IS  LESS  THAN  THE  CORRESPONDING 

ARGUMENT 

MAC 

78b 

c 

THIS  IS  IN  TERMS  OF  THIS  VARIABLE  ONLY 

MAC 

793 

c 

FOR  A  FUNCTION  OF  DEGREE  NO  ME  N£ED2**(N0 

-1)  VALUES 

MAC 

800 

c 

FROH  THE  Z  ARRAY 

MAC 

310 

ITOT (LF I =1 

HAC 

820 

OO  130  1=2, LF 

MAC 

830 

J=LF-I*1 

MAC 

84  0 

ITOT (J)= ITOT  ,  JAl ) *NA (J+ll 

MAC 

65o 

133 

CONTINUE 

MAC 

860 

C 

IN  ITOT ( J)  IS  THE  NUMBER  OF  LOCATIONS  IN 

THE  Z  ARRAY 

NEEOEQ  TO 

CHAMAC 

870 

C 

THE  JTH  SUBSCRIPT 

MAC 

880 

KF=2**LF 

MAC 

69- 
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i 


140 

153 

160 


170 


180 


C 

c 

c 


c 

13 


MH=-2 

00  170  1=1, KF, 2 

IFIRST=1 

MW=MW*2 


MAC  9ii  o 
MAC  91 u 
MAC  92b 
MAC  93 J 


00  160  J=1,IF 


MAC  94 u 


MM=2**(J-1I  _  MAC  95* 

IF  (MOO (NW/MN ,2) .  EQ.O )  GO  TO  143  MAC  96* 
IMON=NGROU»(J)+l  MAC  973 
GO  TO  153  MAC  96* 
1 HONING ROUP ( J )  MAC  99u 
IFIRST=IFIRST  ♦  (IMON-1  )*ITOT(J)  MAClOaU 

CONTINUE  ...  _ _  MAC1010 

ISEC=IFIRST*ITOT(l)  KAClo2b 
HJ(I) =2 (IFIRST)  MAClui* 
WJ(I+1)=Z(ISEC)  MACluku 
CONTINUE  MAC1050 
00  180  I=1*LF  MAClwOb 

KF-KF/Z  _ _ _ MAC lb  70 

03  180  J=l,KF  MACludu 
WJ(J)*WJ(2*J-1)MWJ(2*J)-WJ(2*J-1))*RATI0(I)  MAC1090 
ZR=WJ  (1 )  MAClluk 


RETURN  MAC1116 

END  MAC 112 u- 

SUBROUTINE  GRAPH  ( IA, JM,IU, JC, IB , IL, IV » BR ,AA ,AP,BC , BS_*AB3  _ GRA  10 

GRA  2* 

THIS  IS  A  DUMMY  GRA  30 

GRA  <*b 

DIMENSION  BR ( 1 )  ,  AA(1)  GRA  5u 

WRITE  (6,10)  GRA  60 

RETURN  _ GRA_  7  u 

GRA  8  k 

FORMAT  (1H  *2 9H  SUBROUTINE  GRAPH  WAS  ENTERED)  GRA  90 

END  GRA  10  k- 
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APPENDIX  II 


SAMPLE  INPUT  DECK 

This  appendix  illustrates  a  sample  input  deck  in  figure  2.  The  reader  ir,ay 
compare  the  data  with  the  descriptions  in  tables  1  through  15.  Output 
generated  by  QUANTO  for  this  input  appeat s  in  appendix  III  of  AFWL-TR-73-242, 
"QUANT0--A  Cede  to  Optimize  Weapon  Allocations.'1  The  remarks  which  follow 
will  merely  point  out  several  of  the  salient  features  of  the  input  deck. 
Parenthetical  line  numbers  on  the  left  of  each  data  card  are  used  for  refer¬ 
ence. 

The  first  two  numbers  on  the  first  input  data  card  indicate,  respectively, 
that  there  are  four  airbases  or  targets  and  three  candidate,  positions  at  which 
submarines  may  be  located.  The  locations  of  the  bases  and  their  centroids  and 
their  numbers  of  runways  and  aircraft  appear  on  cards  2,  4,  6,  and  8.  Strings 
of  ones  indicate  the  take-off  sequences,  since  only  one  type  of  aircraft  is 
included  in  this  problem.  Cards  12  through  14  give  the  candidate  submarine 
positions,  the  number  of  submarines  initially  located  at  each  point,  tiie  number 
of  missiles  per  submarine,  and  the  type  of  missile  (or  submarine)  which  is  (or 
is  permitted)  at  each  point.  By  adding  the  numbers  uf  salvos  possible  from 
all  possible  submarine  locations,  the  user  may  compute  the  number  of  weapon 
groups  as  six  in  this  example.  Adjusting  the  array  dimensions  downward  to 
accommodate  only  four  targets  and  six  weapon  groups  could  result  in  an  enormous 
core  reduction. 

Program  options  specified  on  the  first  data  card  include  the  optimizations 
of  both  the  submarine  positions  and  the  aircraft  beddown.  The  extended  form  of 
the  output  has  been  requested  for  illustration  purposes  only,  and  the  user 
should  never  have  occasion  to  request  this  voluminous  output.  The  final  number 
input  on  the  first  data  card  is  the  MODE  option,  which  in  this  case  requests 
that  all  QUANTO  computations  be  attempted  throughout  all  the  optimizations, 
but  if  the  user-specified  time  limit  for  this  job  is  within  30  seconds,  then 
all  computational  results  are  to  be  saved  on  an  output  magnetic  fape  for  later 
use  in  continuing  the  job,  if  desired. 
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The  data  on  cards  10  and  11  is  self-explanatory.  If  there  were  more  than 
one  type  of  aircraft,  there  would  be  it  card  of  the  form  of  card  10  for  each 
type  of  aircraft.  Furthermore,  since  there  are  dual  runway  bases,  two  types 
of  aircraft  would  cause  the  need  to  input  eight  take-off  intervals,  since 
there  would  then  be  four  ordered  pairs  of  aircraft- type  numbers  for  single 
runway  bases  and  four  for  dual  runway  bases.  The  eight  take-off  intervals 
would  require  two  input  cards,  since  each  value  occupies  10  columns  but  only 
70  columns  are  read  from  each  card. 

Data  cards  15  through  20  indicate  data  describing  the  SLBM  and  its  flight 
time.  Fourteen  time/range  pairs  for  the  missile  appear  on  cards  16  through  20 
preceded  by  the  pair  count.  The  user  has  indicated  a  maximum  range  of  2000  NM 
in  card  15  even  though  the  time/ range  pairs  extend  up  to  a  range  of  3290  NM. 

In  QUANTO,  flight  time  for  an  individual  missile  will  be  computed  for  all 
targets  falling  within  the  range  limits  on  card  15,  using  cubic  interpolation 
and  extrapolation,  if  necessary,  on  the  time/range  pairs,  and  targets  outside 
the  range  limits  will  not  be  attacked  by  that  missile.  If  there  were  more 
than  one  missile  type,  a  set  of  cards  like  cards  15  through  20  would  have  to 
be  input  for  each  type  missile. 

The  aircraft  profile  and  nuclear  effects  parameters  are  input  on  cards  21 
through  46.  The  user  has  labeled  the  profile  in  an  unused  field  in  the  "count 
card,"  card  22,  which  also  indicates  that  20  range/time/altitude/velocity/ 
acceleration  sets  are  to  follow.  In  these  cards,  the  user  has  adjusted  the 
altitude  values  to  be  strictly  increasing,  although  this  was  unnecessary. 

Also,  since  card  21  indicates  a  level-off  altitude  of  5000  feet,  the  profile 
data  contains  an  acceleration  value  only  on  the  card  having  5000  feet  altitude. 
The  aircraft  will  be  accelerated  from  Mach  0.7312  to  Mach  0.849  after  leveling 
off  according  to  the  parameters  on  cards  42  and  43.  The  nuclear  effects 
parameters  appear  on  card  44  followed  by  two  blank  cards  indicating  that  the 
lethal  radii  and  the  time  of  shock  arrival  are  not  known  from  previous  runs  of 
similar  problems.  If  there  were  two  types  of  aircraft  for  this  problem,  a 
set  of  cards  similar  to  the  set  of  cards  21  through  46  would  have  to  be  input 
for  each  aircraft  type.  If  there  were  more  than  one  missile  type,  a  pair  of 
cards  like  cards  45  and  46  would  have  to  be  input  for  each  missile  type,  even 
if  the  lethal  radii  are  unknown. 
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The  convergence  parameters  and  the  initial  missile  allocation  which  starts 
the  iterative  procedure  are  input  on  cards  47  through  52.  In  the  initial 
allocation,  the  two  numbers  on  a  single  card  correspond  to  the  two  salvos  from 
a  single  submarine,  and  the  five  submarines  are  in  the  order  indicated  by 
cards  12  through  14.  The  initial  laydown,  for  example,  has  the  second  sub¬ 
marine  at  the  second  submarine  location  firing  its  two  salvos  at  targets  one 
and  four  in  the  order  of  launching. 

While  this  example  does  not  exhaustively  illustrate  all  input  options,  the 
user  can  use  figure  2  as  a  guide  to  constructing  the  input  deck. 


